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Nicolas Fouquet 
(1615-1680) 


François René de Chateaubriand 
(1768-1848) 


Imaginez 


Louis Pasteur 
(1822-1895) 





Napoléon Bonaparte 
(1769-1821) 


ce qu’ils auraient 


fait avec 


Framework 


Prenez par exemple le surinten- 
dant Fouquet, le tableur de Frame- 
work lui aurait été fort utile pour éta- 
blir ses statistiques financières et ses 
prévisions de rentrées fiscales. Ainsi 
il aurait eu des documents clairs avec 
graphiques à montrer à Louis XIV, 
ce qui lui aurait évité de passer la fin 
de ses jours à moisir en prison. 


Chateaubriand aurait sûrement 
utilisé le traitement de texte de Fra- 
mework avec délectation. La table 
des matières électronique lui aurait 
permis de classer les différentes par- 
ties de ses œuvres alors qu’il les 
aurait écrites dans des cadres diffé- 
rents, au hasard de l'inspiration 
romantique. 

La mémoire vive au service des 
Mémoires d’outre-tombe en quelque 
sorte. 


Le cas de Pasteur est particulière- 
ment intéressant. La base de données 
de Framework aurait été indispensa- 
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AUE DES PRIAS 


ble pour répertorier, indexer et trier 
tous les flacons d'essais qu’il avait à 
stocker. 

De combien aurait été libérée son 
énergie créatrice, disponible entière- 
ment au service de l’invention ? 
Peut-être aurait-il eu le loisir d’inven- 
ter la pénicilline. 

Un homme aussi organisé que 
Napoléon aurait apprécié tous les 
aspects de Framework qui traite 
aussi bien les chiffres, les mots que 
les idées. Mais sans conteste, la par- 
tie de Framework qu’il aurait préfé- 
rée est le logiciel de communication. 
Pensez que le décret de création de 
la Comédie Française écrit à Moscou 
aurait été appliqué le jour même à 
Paris. Et que dire de la liaison à éta- 
blir entre son PC portable sous sa 
tente de Waterloo et les renforts de 
Grouchy ? 

Peut-être celui-ci serait-il arrivé à 
temps et la face du monde aurait été 
changée. 


80 855 


ESSAYEZ FRAMEWORK 
#7 = 


FRAME 
st 


La prise en main de Framework 
est un livre d’initiation avec une dis- 
quette, de Claude Chabannes. Il est 
vendu pour 250 F TTC. chez les dis- 
tributeurs IBM-PC et les points de 
vente P.S.I. Ainsi, vous pourrez 
vous familiariser et évaluer 
Framework. 


Framework est un nouvel outil de 
bureautique qui multiplie les possi- 
bilités de votre IBM-PC ou compa- 
tible. 

Framework a été créé par Asthon- 
Tate, l’auteur du célèbre best-seller 
dBase II. 


ASHTON:TATE ES 


TR, M. 


CRT, cm. UD, AT, 













Un ordinateur Commodore 64 / Un interface Peritel / 
Un magnétocassette pour C64 / Les divers câbles de 
branchement (magnétophone, télé et secteur) / Un 
joystick / Le programme EUREKA 


n ordinateur SINCLAIR SPECTRUM 48K /Un interfa- 

mm / ce Peritel/Un magnetocassette/Un Interface Joystick / 

9 pl] | = | Un Joystick / Les divers câbles de branchement / 
= M À Le programme EUREKA. 
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CADEAU 


Les personnes ayant 
passé commande avant 
le 3112.84, Recevront 
gratuitement le guide 
des logiciel 84. 






Le concours n'ouvrant que le l‘décembref 1984, aucun jeu Eurekaneseralivré au public avant cette date. Les expéditions des 
programmes Eureka débuteront donc le 30 novembre 1984 et seront effectuées dans l'ordre d'arrivée des commandes. Les 
chèques seront encaissés 8 jours seulement avant la date d'expédition. Le matériel, lui, Sera livré immédiatement. 


*Les éléments de ces ensembles peuvent être acquis Séparément : consulter le bon de commande crdessous ou notre catalogue VPC. 
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© ENSEMBLE COMMODORE PROMO EUREKA . ..................... 3990 
COMMODORE GA PALSEURRRRU En. D, uses 2790 
LCOMMODOPE GA PERITEL SEULE. nm 2e eue en ane 20 3450: 41. A __ 
COMMODORESX 64 PORTABLE . ...................4.......... 8490 .…. = Signature des parents 
UNITE DE DISQUETTES COMMODORE . ......................... 4400 0 a ——— {Pour mineur) 
LECTEUR DE CASSETTE POUR COMMODORE .................... 400" ————————— 
INPHIMANTEEDSMOS SORT. 2850 
INTERFACE CENTRONICS POUR IMPRIMANTE ....,............... 240 
Loi DE 1) FR ER RE. Re 2 ee —_—_—— 
] 1 U MERCES NS TS 1 du 
nn. : es, D == 
© ENSEMBLE SPECTRUM PROMOTION EUREKA . ................... 2890. Pr. ie Een Fe * / 
ORDINATEUR SPECTRUM 48K PAL ....,.......seueee.ec 1890 ... —— | Nom: 
ORDINATEUR SPECTRUM 48K PERITEL. .....,.....,.,..,4.,444. 2220 86e PRE 
INTERFRCEZXI SPECTRONMR eus ee ct ART UN AR J45 be: —— | 
INTERFACE OONETICK SR ie LT Mine" it RU 180. murdius TE PENSE EEE à fees D SR 
MICRO-DRIVE SRECTRUM … MAR na tt LL TES "| 1e 
DOUBLE MICRODRIVE ROTRONICS . ...,..,.......,....4...... FOOT ETN ARE EE EN ÉCRRRENRE = ——————— — 
MICROCASSETTE POUR MICRODRIVE SINCLAIR . . ................. Se | 
LECTEUR DE CASSETTE ea CN NON OR RE AQU IE IUT CESR E RE ET PRE EE LE 
IMPRIMANTE THERMIQUE ALPHACOM 32 ..........,....,....... 920: l Code postal: LL 1 1 1 | 
ROULEAU DE PAPIER THERMIQUE . ...........,...,............ Re RE PO E Pr nr 
MONITEUR COULEUR CM14 FIDELITY .......................... 2ISNE ee — | NL _—_ 
CABLE POUR BRANCHER UN COMMODORE 64 SUR CM 14 .......... SO Hu ER RSIS  PRRANA es 
CABLE POUR BRANCHER UN SPECTRUM SUR CMI4 .............. 130 
MONITEUR N/V PHILIPS TP200 .............................. 950 
IOYSTICK SPEGIRWIDEO 2e. A ts 0e 


LOS CR FRA. RL EE TS Rest 85 
Total de votre commande: ___  F TTC. 
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G RE UN I td de vente par correspondance. 
GA - Code postal Û joint 5 Bret Her ee A 
Cijointe la somme de F___ J TTC, par chèque bancaire à l'ordre de EUREKA INFORMATIQUE Poour contribution aux frais d'ex 
39/41, rue Victor-Massé - 75009 PARIS. ; 
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Je désire recevoir votre catalogue | + 
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@ programmer 
un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
NA qui “tourneront” sur votre machine. 
f LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actua- 
lité et vous fournit trucs, astuces et idées 
pour mieux programmer... 
Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 


abonnez-vous! 


VOTRE CADEAU! 


__ D'un format pratique (11,5 x 
ph #7 25cm), le FRANS'BASIC est 


une table de conversion des 


eg Fa = instructions BASIC des 
F ke 21 micro-ordinateurs les 
2 plus courants. Ce livret de 
24 pages vous permettra 
d'adapter sur votre ordi- 


nateur la plupart des 
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. L Es programmes conçus 
Et) "| pourles autres 

F : ee machines 
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BULLETIN D’'ABONNEMENT 
(à retourner à LIST - Service Abonnements - 5, place du Colonel Fabien - 75491 Paris Cedex 10) 


Prénom 


Nom 


2 M ARE ET OR PEL ST OT ER PES A AAC PR 
Code postall_1_1 1 |__| Pays 


Ville 
Veuillez m'abonner pour 10 numéros au prix avantageux de 160 F* au lieu de 200 F -— prix total au numéro - et m'adresser en cadeau 


le TRANS’BASIC. Je joins mon règlement indispensable libellé à l'ordre de LIST. 
30 $C: autres pays: 210 FF. rat hé DOS 245 FF; perde re autre Afrique, Océanie: 305 FF; Asie: 355 FF. 
t Sociét: 39. Suisse: 19, route du Grand-Mont, CH 1052, Le Mont-aur Lausanne, 

1, 9345, rue de Meaux, St Léonard (Guébec), H1R 3H3, C 


ae 1330 FB; Suisse : 50 FS: nets 
Soumillion 28, av. Massenet, 1 90 Bruxelles. Versemen 
Crédit, 10- 2418 Le Mont NOR compte Lois y n° 501567 Ca Canada: LMP 


Caisse Epargne et de en, 15491 Paris Cedex 10. 
n9 4 ÉU Pérance 5 dues cnrs ape 2 

















IAN LIVINGSTONE 


Déjà auteur de romans d'aventure 
vendus à plus de deux millions 
d'exemplaires, lan Livingstone est 
le créateur d'Eureka 
| a imaginé le 
tors. Ilest d'ailleurs le seul, pour l'instant, à cor 
naître la bonne réponse. Programmé par les équi 
pes d'Androm sous la direction de Donat Kiss 


et Andras Csa Eureka représente 5 années 


s énigmes et les pièges les plus re 


de travailet le concours de 4 graphistes , 2 

cens et d'un professeur de logique 

Nous voulions une aventure quivOus pousse dans 
vos derniers retranchements. l!s l'ont fait ! 





LE 
PACISMAN TEMPOREL 


Au cours de la dix-seotième 














































nissi Ap , es astronauté 
américains découvrent sur la Lune 


n étonnant cristal po 


ureka, c'est cinq aventures en une 

seule cassette. 

Remontez le temps et sauvez le 
monde ! 






té. Réfractaire à toute analyse 


man explose sous Feftet de r 





vons laser, qui dispersent 
ses angles Grace à des ondes rad 
jes ms sont retrouvés, mais © autres 
manq ent touours 


Comme 


AGE PREHISTORIQUE 


coincidence, la Lune se! ns défense, Vous vous retrouve 





il'aube des tem Autour de voi 


nnaît de très fortes secousses sismique: 





les feuille 





n le Dr Mai, elles sont hées à l'explosion 








1 jungle, le bruissemer 


des pas dans les brous tre 





ju cristalet là lune serait elle-même sur le point 








f : fi ne 
d'exploser, bombardant la Terre de gigantes ang se fige. Une é 
ques météorites. Il affirme, d'autre part, que cha OUS TECOUVE, LE 50 
que Coin manquant à été propulsé dans 
temps allant de la préhistoire à l'époque moderne LA ROME TIQUE 

e départ de la urse de char 


Votre missior nsiste, avec Faide dé laN: 






À va être donné. Les autres fiCur 
Je son Chronotron, à remonter le temps ; 

bservent et vou 
rapporter 


A che étape z user de toute votre 









ntelligence£ ire chaque énigme ; votre adre 









































se vous aidera à survivre. Eureka, en proposant un jeu \evaux semblent mieux 
‘Arcade suivi d'un jeu d'Aventure, teste parfaitement les Hbésalle USE Var 
tés que l'aventure ar! réel exigerait G tade du regard. La course est 
Vous désirez participer au Concours Eureka : c'est tré: rte 
B tème Commodo 
ogramme Eureka LE MOYEN AGE 
L réneaux de laT je ée Morgane 
ñ, tout en reconsti peuvent rie our empecner te € 
ntenues dans le é laciaie Ge transpercer voire armure 
haut de cette tour, vous ente 
Ut une v L J » crre Jé a re 
L U bonne réponse recevra ondre, là, dans l'ombre. Derrière 
le Chèque de 250.000F pre 1 able gs 
—Le second gagnera un voyage d'une Semaine pour ES arte ni 3 
ersonne Cas OU Th de S 
Les 3 sua des bons d'acha OFT Haies en 
245 autres, des bons d'acha OFTI jéchiren | 
COMMENT GAGNER ? ge te de 
Vous avez reçula cassette de jeu et 13 le. Un Don de av nc ez f S à PAS, attentif au 
me secs ve noindre bruit. Du bout du couloir vous 
porte 2v in que vous deve ent une con n assourcie 
que impérativemer FRsres ERA SpIER 
nsutue la seuievérit ; : 
e» DA Vous..| rétalique 
iécouvert onne réponse, ne nous téléphone as € ttes seraf he. Vous se 
21 gramme répondant aux conditions pré ez les poing 
vues dans le 
Eurekaes amme aussi s péctaculaire qu'une super LES CARAÏBES MODERNES 
production de ci animations sont Vous remontez le temps à la vitesse 
renantes de y s bruitages v : la lumière. Uans 1Immense 10or 
replongent, grâce à hacune de \ e l'or 
ques. Vous percevrez tout ve 1 
> programme un fa est L 
ttentivement. Hlustré, | e: vi 
explications du jeu et les ér € uxc dra J l'esprit D 





rép 


BON DE COMMANDE 


EXTRAIT DU RÈGLEMENT 

[Société PROSPECTIVE INTERNATIONALE DE DISTRIBUTION, dont le 
Siège Social est situé 39, rue Vicor-Massé - 75009 PARIS, organise à partir 
du 1°" Décembre 1984, un Concours avec obligation d'achat intitulé 
EUREKA. Le premier dépouillement aura heu le 31 Mars 1985. Sinéces 
saire, un dépouillement mensuel sera ensuite effectué jusqu'à ce que les 
250 Prix soient distribués. Ce concours est ouvert à toute personne pt 
que résidant sur un territoire francophone, à l'exception du Personnel des 
Sociétés organisatrices ainsi que toute personne ayant participée à l'éla 
boration, la promotion, la distnibution et la revente du jeu EUREKA 
Pour participer au Concours, il faut : acheter le jeu EUREKA et renvoyer le 
Bon de Participation joint ; pour gagner, il faut être l'une des 250 premuè 
res réponses aux énigmes contenues dans le jeu et ce, par télégramme 
Le réglement complet à été déposé chez Maître JAUNATRE, Huissier de 
Justices à PARIS, et peut-être obtenu, sur simple demande accompagnée 
d'une enveloppe timbrée à 

Concours EUREKA 
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e désire recevoir le JEU EUREKA SUR CASSETTE, au prix de 250F. Je ne le recevrai qu'à 


partir du 1/12/1984, date de débu 





concours ; et mon règlement ne Sera encaissé, au plus 








tôt, que 8 jours avant la livraison du jeu 
JEU EUREKA POUR COMMODORE 64 L] 250 F TTC. 
JEU EUREKA POUR SPECTRUM 48K [] 250 F TTC. 


| | 
Non Prénom i 
ä 





Adresse 
(.. onde, Æipetiee sr Ce —… “A _Cueg Code postal: L_L_L 1 1 | 


Ciointe la somme de F____ TTC, par chèque bancaire à 
l'ordre de EUREKA INFORMATIQUE, 39/41 rue Victor-Massé - 75009 PARIS 39, rue Victor Massé - 75009 PARIS 






Les “102 PROGRAMMES POUR...” 
existent en 16 versions sur : 
MSX - EXL 100 - LASER 200 et 310 
APPLE 11 - MOS et T07/70 - ATARI 
VG 5000 - COMMODORE 64 
ORIC ATMOS - ALICE - SINCLAIR - TI 99/4 A 
YENO/SEGA 3000 - AMSTRAD 
ELECTRON - HECTOR en Basic 3 X 
chaque ouvrage : 248 pages - 120,00 FF 





Æ BEST SELLER P.S.I. PLUS DE 80000 EXEMPLAIRES VENDUS EN UN AN! 


‘Les 102 programmes pour.” proposés par J. Deconchat sont autant de jeux sim- 
ples, expliqués, testés et ouverts sur les extensions que mijotera votre imagination”. 
(Votre Ordinateur Déc. 84) 


‘Une mine de logiciels. et un bon livre pour les débutants...” (TILT Juin 84) 


“La plupart des programmes sont présentés en deux pages, très clairement : à gau- 

che, la nature du jeu, son degré de difficulté. les règles. et des suggestions. ; à 

droite, le listage, sorti d’une imprimante. Des soirées occupées en perspective.” 
(Sciences et Vie Micro Avril 84) 





RER RE DEEE 


u DÉSIGNATION NOMBRE PRIX 
n | | 


par avion ajouter 8 FF (75 FB) par livre TOTAL | 


Frais de pour tous les ouvrages : France : 5,00 FF. 
my œ pot Suisse : 1.50 FS Signature obligatoire pour paiement 
par carte de crédit 





voyez ce bon accompagné de votre règlement à : D Je désire recevoir le catalogue gratuit. 
ANCE : PSI. diffuson - BP 86 77402 Logny-s/Morne Cédex - Tél. : (6) 006.44,35 C1 Paiement parchèquejoint C1 PaiementenFF par carte bleue VISA (à PS.L. DIFFUSION uniquement paiement supérieur à 50 
ELGIQUE, LUXEMBOURG : PS.L. Benelux ee 
!, rue du Doyenné 1180 Brneles! Tél, : (2) 345.08.50  DÉNRE BETO EN es PER 2 EU fac EU LES TN RTE ET Date d'expiration |_1 11 
: PSI. : 
Don PE PT ET CO v 50 NOM ru 
ANADA : SCE. Inc - 65, avenue Montréal RUE N° 


Hide 
Vestmount) - Québec H3Z1W1 - Tél. (514) 935.13.14 
CODE POSTAL VILLE Eh et LE th 


7 
C est parce qu'il n'existe pas de 
langage universel que les program- 
meurs réinventent chaque jour la 
poudre : ce qui fut écrit pour une 
machine doit être reformulé pour 
TS une autre, même s'il s'agit d’un 
“7 programme en Basic. 
Plutôt que de présenter un seul logiciel sous autant de 
versions qu'il existe de machines, il nous a semblé 
astucieux de sélectionner 40 vrais programmes adaptables 
à tous les ordinateurs ; ettoute adaptation, toute retouche 
est à votre portée tout simplement grâce au Dictionnaire 
des Basic. 


ms € F2 


ue le Basictionnaire soit avec 
vous ! Ses 200 définitions croisées rassemblent un savoir 
indispensable. Consultez-le, reconsultez-le, vous lirez 
bientôt Basic dans le texte ! 


E maîtrisant petit à petit les diffé- 
rentes versions du Basic, ce ne sont plus seulement 40 
programmes, mais une bibliothèque entière de jeux et 
d'applications qui pèseront dans vos mains ; et qui plus 





Editeur : Jean-Pierre Nizard 
Drecteur de la rédaction 
Bernard Savonet 
Rédaction 


Directeur de la rédaction 
Bernard Savonet. 


Antoine Jennet rédacteur en chef 
délégué), Martine Solirenne (se 
crélaire générale de rédaction) 


Rédaction : Jean-Luc Goudet 


Fabrication : Jeanne Bronner 
{secrétaire de rédaction), Viviane 
Bazin révision), Eric Buhr 
fmaqguette), Josette Cottin 
{assistante de fabrication). 


Assistante de rédaction : Myriam 
Fitoussi 


Secrétariat : Françoise Courtel. 


Numéros spéciaux : Olivier 
Magnan (rédacteur en chef 
adjoint). Michelle Aubry 
{assistante de rédaction) 


Administration : Marie-Hélène 
Muniz. 


Spécial programmes 


Rédaction : Michel Arditti assisté 
de Thierry Levy-Abegnoli. 





EDITORIAL 


est, la Voie Royale de la création vous sera ouverte. 


Secrétariat de rédaction : Mreille 


Othnin-Girard 
Coordination : Patrick Brai. 


Couverture : B.E.V 


Publicité - Promotion - 


Ventes 


Editeur adjoint 
Jean-Daniel Beltond 


Chefs de publicité 
Marie-Christine Seznec 

et Philippe Daniloff 
assistés de Fatma Boulila 
et de Marie-Christine Jugeau 
Administration 

Maryse Marti assistée de 
Anne Stolkowski. 
Promotion 

Brigitte Millé assistée de 
Geneviève Cuvelier. 
Ventes - Diffusion NMPP. 
Béatrice Ginoux Defermon 


Abonnements 


Muriel Watremez assistée de 
Cecilia Mollicone 
et Sylvie Trumel. 





Ont collaboré 4 ce numéro : Em- 
manuelle Ades, Simon Antoine, 
Pierre Barnouin, D. Batique, Bob 
Beauvisage, Joël Becker, Sylvie 
Chazalet, Philippe Boulée, Daniel 
Botion, J.-M. Chambinaud, Pr. 
Dopelapel, Fabrice Duluins, 
P. Germaneau, Pascal Giraud, 
Jean-Luc Goudet, P. Guegano 
Pierre Guilbert, Y. Guiomar 
G.Leblond, Kléber Lesage, 
Christophe Lesur, Thierry Levy- 
Abegnoli, J.-M. Papin, Xavier Per- 
rin, Pascal Prioux, Stéphane Sab- 
bague, Laurent Voiry, Pedro Inigo 
Yanez, Bob Ludwick Züber 


Iustrations 

Jean Dobritz, Gérard Gautier 
La loi du 11 mars 1957 n'autori- 
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«les copies où reproductions 
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SPECIAL PROGRAMMES 


Dictionnaire des Basic. 
oisses, vos réflexions : nous 
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PROGRAMMES 





BASIC 


Il existe autant de styles de programmation que de 














rogrammeurs : méthode n’est pas Synonyme de stéréo- 


e. Vous trouverez dans les 
utilitaires et 6 programmes pratiques ; leur « style » 
reflète la personnalité de leur auteur, il met en évidence 
I 


La 


‘esprit du langage Basic. 


4 


10 


LE DICTIONNAIRE DES BASIC 
Plus près de toi, Basic. 


19 


LABYRINTHE CITY 
Un programme court conçu en TI ou EXL Basic vaut 
bien l'occasion de tenter une sortie ! 


21 


UN MOT POUR UN AUTRE 
Si ce n'est lui, c'est donc son frère. Identifiez un mot 
par son signalement 


23 
PANIQUE A L'HOTEL 


Chargez vite ce programme sur n'importe quel Ol: le 
compte à rebours est déjà commencé ! 


26 
LETTRES PERSANES 


À la foire aux mots, les troupeaux de lettres doivent être 
surveillés par un berger expérimenté 





es qui suivent 28 jeux, 6 














lupart d’entre eux tourneront directement sur votre 
ordinateur (des indices de difficulté mesurent le temps 








nécessaire à leur adaptation). Avec un minimum de 


réflexion, vous parviendrez à les personnaliser grâce au 
Communiquez-nous vos an- 





répondrons ! 


29 


DESSERT DES TARTARES 
Dans le néant de la nuit cosmique, l'assassin a frappé. 
Huit inspecteurs mènent l'enquête. 


51 


COURSE SUR LES TOITS DE NEW YORK 
Un programme très graphique prévu pour un DAÏ, mais 
transposable sans gros efforts. 


33 


COMPLICES ET SUSPICION 
Jeu louche avec soupçon d'humour et pince-sans rire. 


33 


LE TROU NOIR FLOTTE SUR LA MARMITE 
Déduction, induction: un peu de méthode pour 
localiser cing trous noirs invisibles. 


37 


OBJECTIF PLUS X 
Glissez-vous aux commandes de ce tank et bombardez 
ces mines que je ne saurais voir. 
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MASTERMIND POLITIQUE 
Un programme qui n'a rien de commun, des vedettes 
de circonstance. par qui le scandale arrive. 
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L'ORGUE SUR LA TOUCHE 
Accommodez le clavier de l'Oric selon le principe 
«Une touche, Une note » (Toccala tsoin tsoin). 


43 


FACE A FACETTE AVEC PUISSANCE 4 
Puissance 4 en quatre dimensions : ne,négligez pas le 
facteur temps 


47 


PASSEZ SUR LE STRATEGRILL 
Testez vos talents en reconstituant des carrés magi- 
ques, mais pas Sorciers. 


49 


LE LABYRINTHE FOU 
Par où l'es rentré ? on l'a pas vu sortir 


æ 
30 
LA VILLE INFERNALE 


Sêchez vos larmes, camarade ! 1} n'y a guère ici de jeu 
sans frontières. 


J1 


DES CLOUS SUR LE BITUME 
Diable! Fichtre! DESTROY ! !! 


23 


ARISTOTE DIEU OULIPISTE 
« Le plus court chemin entre deux points est la droite » 
racontait Aristote sans penser à mal 


æ , 

J4 

CONVERSIONS SUBITES 

Pour savoir combien il se trouve de parsecs dans deux 


décamètres, ou bien de roupies de Sansonnay dans une 
plaque d'égout, il vous faut l'aide de ce programme. 


= 
9) 

LA PSYCHO TAPIE AU PLAFOND 

Psychopathes en puissance et narapoïaques convain- 
ous, ne pas S'abstenir ! 


L 4 

2/ 

RENCONTRES AU SOMMET 

Que ce soit dans le choix d'une cravate ou celui d'un 
nœud-pap, nous sommes toujours influencés par une 
lierce personne. Evitez le piège de cette relation 
tlangulaire 


61 


SATURNE BIEN ROND 
Payez-vous l'anneau de Saturne en 30 stéréoscopique 
et faites admirer. 


63 


LOUISIANE 
L'épopée de Louisiane et Fausse Rivière (Maurice 
Denuzière), avec l'ordinateur dans le rôle de l'intendant. 
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HUIT DAMES A CASER 

Voici comment placer huit dames sur un échiquier 
(8x8) sans qu'elles se menacent. Et dans le cas du 
damier (10x10)... 


70 


LE FACTEUR SONNE TOUJOURS DEUX FOIS 
Combien de chiffres dans lactorielle 100 ? Allons-y : ce 
petit joyau en Basic les imprime tous en cinq minutes. 
Essayez donc de le faire tourner sur votre OI. 


71 


OCTOPUSSY 

Mission au goût bulgare pour agent spécial-pro- 
gramme, Ne tuer qu'en cas d'extrême nécessité. 

En cas de difficultés ammez-vous d'un yaourt. 


73 


JEUNES LOUPS ET DENTS LONGUES 
Entreprises clels-en-main : quatre équipes luttent pour 


la suprématie commerciale. Le moment venu, étalez vos Ad 


théories économiques. 


7 
76 RE 
A TRAVERS LA PASSOIRE y 


Gag! Vous emportez sur votre lancée les murs du 
labyrinthe. 
Tachez de les éviter au lieu de rire. 


Cat 


LE TRADUCTEUR 

Un programme qui prend sa dimension réelle sur un 
ordinateur de poche en le transformant en dictionnai- 
re/agenda/lexique à votre portée 


78 


MORSE SUR LE NIL 
Initiez-vous au hiéroglyphe-morse. et découvrez « le 
code nouveau » 


60 


A MOI ESCOMPTE DEUX MOTS 

Tout fin gestionnaire sait reconnaître l'opportunité d'un 
escompte. Facilitez-vous les calculs avec un pro- 
gramme qui ne se trompe pas. 


82 


CODONS S'IL VOUS PLAIT ! 

L'hermétisme est une vocation folle, un plaisir tendre. Il 
suffit d'appliquer un principe de base n lois pour 
transiormer tout bon texte en charabia de première 
main, Succès garanti. 


83 


TEXTEX AIME VOS TEXTES 

Un modèle simple de logiciel de traitement de texte 
pour tous, qui permet de mettre en ordre des notes ou 
le contenu d'un fichier par exemple. La secrétaire 
partaite. 


641 


MIDNIGHT BLOC-NOTES 

Ce bloc-note là est SAVANT. |! retrouve les aiguilles 
dans les bottes de foin, les cheveux dans la soupe et 
bien d'autres merveilles encore. À vous de découvrir 
toutes ses vertus. 















66 


LE TRI QUI TUE 
Le tri Lucky-Luke: plus rapide que son nombre. 


60 


Q! : LE QUOTIENT IRRATIONNEL 
Pas de PGCD pour Miss Blandish. Ce programme 
différent est spécialiste des approximations. 


67 


BOUSCULEZ LES MINUSCULES 
Eliminer les minuscules dans vos listes de données 
leur est salutaire. Ne vous en privez plus 


67 


LE HASARD ET LES NÉCESSITÉS 
Pour simuler la distribution d'un jeu de cartes, ou bien 
tout événement non répété, il existe bien une astuce 


NUMÉROTEZ VOS MATRICULES 


Prétexte que tout cela, alin de présenter une pelite 
routine de double précision. 


60 


DE 1585 À 1985 
Créez tout simplement une fonction calendrier pour 
votre OI 


90 


MA DOUCE MA BELLE ET MA COURBE 
Retrouvez les rondeurs gracieuses des fonctions 
mathématiques les plus saugrenues 


kid Aucune difficulté ! 
Fi Diable ! 
4 Bigre ! 
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UV: possédez un OI 
depuis trois mois, six 
mois, un an. Vous programmez aussi depuis quelque 
temps et connaissez maintenant sur le bout des ongles 
le langage Basic. Mais quel langage Basic ? Celui de 
votre machine, bien sûr ; mais celui de l’Ol de votre 
voisin vous semble-t-il aussi accessible ? Avez-vous 
déjà essayé d'implanter ligne à ligne et de faire tourner 
sur votre OI un programme fonctionnant parfaitement sur 
un autre ? Et qu'est-il arrivé lorsqu’au terme d’un long et 
fastidieux recopiage, vous avez lancé le RUN libérateur? 


Vous voyez où je veux en venir... Si le Basic est disponible sur 
tous les OI, s'il est le langage le plus utilisé, il n'en reste pas 
moins que d'une machine à une autre, ce même langage ne 
dispose pas forcément du même vocabulaire. |! conviendrait donc 
plus justement de parler des Basic plutôt que du Basic. Bien sûr, 
logique et structure restent les mêmes, des instructions telles que 
RUN, RETURN, GOTO sont comprises par tous de façon identique, 
ce qui fait que pour 90 % des lignes d'un programme, la 
traduction d'une machine à une autre ne pose aucun problème. 
Mais voilà, les 10 % restant risquent, eux, 

de vous donner du fil à retordre ! 

Dans ces 10 % de cas, les plus joueurs et les plus patients d'entre 
vous trouveront un passe-temps idéal ! Astuce et mesquinerie 
trônent en maîtres absolus sur les cinq dernières lignes par la 
faute desquelles le programme censé vous jouer /a Marseillaise 
vous Sifflera /'/nternationale ! Dans ces 10 %-là vous trouverez les 
instructions les plus étranges qui soient : ainsi les caméléons, 


BASICTIONNAIRE 





DICTIONNAIRE 


A= 3 

Synonymes : B (sur le Lynx). 

ACS 

Définition : fonction qui donne l'arc-cosinus 

d'un nombre ou d'une variable numérique, 

c'est-à-dire la valeur de l'angle qui a pour 

cosinus le nombre en question (ce nombre 

est compris entre — 1 et + 1). 

Syntaxe : tes we ou ACS (nbr), exemple 
5). 





Définition : fonction qui donne la valeur A = ACS (0, 

absolue d'un nombre ou d'une variable Synonymes : ARCCOS (sur le Lynx). 
— (c'est-à-dire sa valeur sans signe D 

+ où —). 


Syntaxe : ABS (var) ou ABS (nbr), exemple Définition : opérateur de logique 


= 








dont l'orthographe change pernicieusement d'un Basic à un autre, 
les faux amis, qui tournent leur veste et changent de sens en 
changeant de machine, les variantes, trucs et astuces géniales 
chez votre ami, fatales chez vous, les belles inconnues, 
instructions capitales qui après ultième relecture de la brochure 
s'avèrent ne pas être disponibles sur votre OI, et enfin, comble de 
l'horreur, les PEEK, POKE et autres instructions qui travaillent 
directement avec la mémoire de la machine du voisin et risquent 
bien souvent de faire perdre la tête à la vôtre ! 

Voilà la situation clairement précisée : périlleuse et délicate est 
donc l'aventure d'une traduction. Mais pas insurmontable, loin 
s'en faut. Ainsi pour vous aider vous trouverez dans ces pages un 
dictionnaire baptisé Basictionnaire qui, nous l'espérons, pourra 
vous aider dans vos transferts de programmes. Nous y 
répertorions une centaine d'instructions (des Basic Ansi, 
Microsoft, MSX...) qui couvrent une trentaine de machines. Nous 
expliquons la fonction et l’utilisation de chaque ordre et un jeu de 
références croisées indique pour chacun l'équivalent sur d'autres 
OI. Un dictionnaire utile aux programmeurs confirmés 
connaissant bien leur machine qui sera également d'un apport 
précieux aux débutants. Un dictionnaire qui prétend à 
l'exhaustivité mais (les ordres trop spécifiques en ont été écartés), 
vise plutôt à la clarté. 

Pour finir, rappelez.vous que pour bien traduire il faut commencer 
par bien comprendre, dans le moindre détail, le programme 
d'origine. Ensuite, ayez à l'esprit les règles de la programmation 
structurée et, plutôt que de traduire mot à mot, tâchez de séparer 
le travail en blocs fonctionnels précis. Enfin, n'ayez pas honte de 
rechercher dans votre manuel pour éclairer vos doutes. Et 
maintenant, bon courage ! 


Tout au long du Basictionnaire, 
certains mots et conventions sont 
utilisés fréquemment, en voici les 
définitions. 


COMMANDE 

Ordre généralement extérieur au 
programme permettant d'effectuer des 
actions particulières au niveau de 
l'ordinateur (et non pas à celui de la 
logique d'exécution du programme). Les 
commandes sont directement 
exécutables par la machine. ex. : RUN, 
LIST, LOAD... 

FONCTION 

Donne le résultat d'un calcul effectué sur 
une donnée ou sur une variable. Les 
fonctions font appel à des sous- 
programmes précodés en langage 
machine. 

Ex. : LET À = SIN(X) ; X étant une 
variable renseignée au préalable, la 
fonction SIN va faire appel au 
microprogramme qui va calculer la 
valeur du sinus du nombre en question. 
Cette valeur sera affectée à la variable À. 
INSTRUCTION 

Mot d'un langage de programmation 
permettant de spécifier à l'ordinateur les 
opérations qu'il doit effectuer sans 
ambiguïté possible. 

Ex. : LET A = 3 ; l'instruction LET 
indique qu'il doit affecter la valeur 3 à la 
variable À. 

PRINT À ; l'instruction PRINT indique à 
l'ordinateur qu'il doit afficher à l'écran la 
valeur attachée à la variable À. 
OPERATEUR 

Symbole permettant de réaliser des 
modifications ou des comparaisons sur 
les variables utilisées 

RES ss 

CONVENTIONS 

Var. : indique un nom de variable. 

(..) : indique une clause opérationnelle. 
{ : indique des clauses équivalentes. 


























arithmétique, signifie « et ». AND est utilisé ASC 

dans l'instruction IF... THEN. Définition : fonction qui donne le code 
Syntaxe : exemple IF À = 1 AND B = 2 ASCII du premier caractère d'une chaîne. 
GOTO 20. Syntaxe : ASC (« caractère ») ou ASC 


Remarque : permet la comparaison bit à bit {variable chaîne), exemple B = ASC (B$). 


de deux registres. Synonymes : CH (sur Atom). 

ARCCOS Remarque : ZX 81 et Spectrum n'utilisent 

Voir AC pas le code ASCII mais disposent d'une 
oir ACS. fonction équivalente (CODE) qui donne le 

ARCSIN même résultat avec le code Sinclair. 

Voir ASN. ASN 

ARCTAN Définition : fonction qui donne l'arc-sinus 

Voir ATN. d'un nombre ou d'une variable numérique, 


c'est-à-dire la valeur de l'angle qui a pour 
sinus le nombre en question (compris entre 
— 1et+ 1). 

Syntaxe : ASN (var) ou ASN (nbr), exemple 
A = ASN (X). 

Synonymes : ARCSIN. 


ATN 

Définition : fonction qui donne l'arc- 
tangente d'un nombre ou d'une variable 
numérique, c'est-à-dire la valeur de l'angle 
dont la tangente est le nombre en question. 
Syntaxe : ATN (var) ou ATN (nbr). 
Synonymes : ARCTAN. 





AUTO 


Définition : commande de numérotation 
automatique des lignes de programme. 
Syntaxe : AUTO [n° ligne début (,pas)], 
exemple AUTO 100,5 numérote les lignes de 
5 en 5 à partir de 100. 

Synonymes : NUM (sur TI 99). 





B 

Voir ABS. 

BASE 

Voir option. 

BLOAD/BSAVE 

Définiton : convertit une valeur numérique 


en un entier. 
Voir INT, FIX, ROUND. 








CALL 

Définition : instruction, fait appel à une 
routine en langage machine implantée en 
mémoire à l'adresse « adr », OU à une 
procédure identifiée par un nom. 

Syntaxe : CALL (adr) ou CALL (nom). 
Synonymes : LINK (sur Atom), SYS (sur 
CBM 64 et Vic 20), EXEC (sur Dragon 32), 
USR (sur Hector, ZX 81 et ZX Spectrum). 
Remarque : CALL permet d'exécuter une 
routine sans quitter le programme en cours 
d'exécution (la routine une fois terminée, le 
programme continue de se dérouler en 
séquence, juste derrière le CALL). 


CHAIN 

Définition : instruction de débranchement à 
un nouveau programme CHAIN charge le 
nouveau programme en mémoire centrale et 
en lance l'exécution sans qu'il soit besoin 
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de faire un RUN. 

Syntaxe : CHAIN « nom de programme ». 
Synonymes : RUN MERGE (sur TO7 et 
MO5). RUN « C : » (sur Atari). 
Remarque : sur Oric Atmos, le CHAIN est 
obtenu par l'instruction CLOAD avec la 
syntaxe : CLOAD « nom programme »;. 


CHAR 

Définition : définit la forme d'un caractère 
ASCII en codant chaque ligne de points 
d'une matrice par deux codes hexa. 


CHRS 

Définition : fonction qui donne le caractère 
dont le code ASCII est nbr. 

Syntaxe : CHRS (nbr). 

Remarque : CHR$ fonctionne de façon 
identique sur les ZX 81 et Spectrum avec le 
code Sinclair (et non ASCII). 


CLEAR 

Définition : commande de remise à zéro de 
la mémoire. 

Syntaxe : CLEAR. 

Synonymes : CLR (sur Atari, CBM 64 et Vic 
20), VAC (sur Casio PB 100 et FX 702 P). 
Remarque : les Casio utilisent CLEAR dans 
le sens de NEW ; le TI 99 pour effacer 
l'écran et certains OI pour allouer un espace 
mémoire aux variables. 


CLG 

Définition : fonction qui donne le logarithme 
en base dix d'un nombre (supérieur à zéro) 
ou d'une variable numérique. 

Syntaxe : CLG (var) ou CLG (nbr), exemple 
A= CLG (B). 

Synonymes : CLOG (sur Atari), LOG (sur 
BBC, Casio, Lynx, Sharp....), LOG10. 
Remarques : sur BBC, CLG est utilisé pour 
l'effacement d'écran (en mode graphique) - 
voir CLS. 

Les fonctions logarithmes les plus utilisées 
sont LOG, CLG et LN. Pour éviter la 
confusion entre logarithme décimal (base 
10) et népérien (base e = 2,7182818...), 
une vérification simple consiste à calculer le 
logarithme de 10 : si le résultat est 1, il 
s'agit du logarithme décimal ; s'il est égal à 
2,3025851... c'est le népérien. 


CLOAD 

Définition : commande permettant de 
charger en mémoire centrale un fichier (ou 
un programme) enregistré sur cassette. 
Syntaxe : CLOAD (nom de fichier) est la 
syntaxe la plus fréquente. Si le nom du 
fichier n'est pas indiqué, la machine charge 
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le premier trouvé sur la cassette. 
Synonymes : OLD (sur TI 99), LOAD 
(beaucoup d'O utilisent indifféremment 
LOAD pour charger un fichier enregistré sur 
cassette ou disquette). 

Remarques : CLOAD est une commande du 
Basic Microsoft. 

CLOAD « nom programme »; j équivalent à 
CHAIN sur Oric Atmos. 


CLOG 
Voir CLG. 


CLOSE 

Définition : instruction de fermeture de 
fichier. 

Syntaxe : très dépendante de la machine. 
Remarque : CLOSE est utilisé en parallèle à 
l'instruction OPEN. 


CLR 
Voir CLEAR. 


CLS 

Définition : commande ou instruction 
d'effacement d'écran. 

Syntaxe : CLS. 

Synonymes : CALL CLEAR (sur TI 99), 
HOME VDUA (sur Lynx). 

Remarques : sur BBC, l'effacement d'écran 
graphique est obtenu par CLG ; 

sur Dragon 32, CLS a une autre signification 
(voir COLOR). 

Voir HOME. 


CODE 
Voir ASC. 


COLOUR 

Définition : instruction permettant de définir 
des couleurs. 

Syntaxe : COLOR nbr (nbr est le code de 

la couleur désirée). 

Synonymes : COLOUR (sur BBC), CLS (sur 
Dragon 32), INK (sur Lynx et ZX Spectrum). 


CONT 


Définition : commande, permet de relancer 
une exécution stoppée. 

Syntaxe : CONT. 

Synonymes : CONTINUE (sur ZX Spectrum), 
CON (sur TI 99). 


cos 

Définition : fonction qui donne le cosinus 
d'un angle. 

Syntaxe : COS (var) ou COS (nbr). 
Remarque : attention à l'unité dans laquelle 
l'angle est exprimé (degré, radian ou 
grade) : elle n'est pas forcément la même 


d'un O! à un autre, et la fonction risque donc 
de donner un résultat différent. 


COSH 

Définition : fonction qui donne le cosinus 
hyperbolique d'un nombre réel (positif 

ou négatif). 

Syntaxe : COSH (var) ou COSH (nbr). 
Synonymes : CSH. 

Remarque : les fonctions hyperboliques sont 
à l'hyperbole ce que les fonctions 
trigonométriques (COS, SIN, TAN) sont au 
cercle. 


COUNT 

Définition : fonction qui donne le nombre de 
caractères inscrits depuis le dernier retour 

à la ligne (RETURN). 

Syntaxe : COUNT. 

Remarque : fonction similaire à celle 
accomplie par POS sur d'autres OI. 


CSAVE 

Définition : commande permettant de 
sauvegarder sur cassette un fichier (ou un 
programme). 

Syntaxe : CSAVE (nom de fichier) est la plus 
fréquente. 

Synonymes : SAVE (utilisée par beaucoup 
de machines pour sauvegarder un fichier sur 
disquette ou cassette, les syntaxes varient 
d'un OI à un autre). 

Remarque : de la même façon que CLOAD, 
CSAVE est une commande du Basic 
Microsoft. 


CSH Voir COSH. 
CURSET Voir PLOT. 
CURSOR Voir POS. 





Définition : instruction permettant de créer et 
déclarer une liste de données. Les éléments 
de cette liste seront lus dans l'ordre de la 
É une (ou plusieurs) instruction 


Syntaxe : DATA var [,var(,varl...]]] NB. var 
peut être une donnée alphanumérique 
(caractère ou chaîne de caractères) ou 
numérique (nombre 

positif ou négatif). 


DEF FN 


Définition : instruction permettant à 
l'utilisateur de définir une nouvelle fonction 
programmable. 

Syntaxe : DEF FNC (X) = 2x7 PIX crée la 
fonction FNC (X) qui donne la circonférence 
d'un cercle à partir de son rayon. 


DEFINT, DEFSNG, DEFDBL, DEFSTR 
Définition : définissent respectivement un 
groupe de variables entières, simple 
précision, double précision, chaines. 


DEL Voir DELETE,. 


DELETE 


Définition : commande permettant d'effacer 
une ou plusieurs lignes d'un programme. 
Syntaxe : DELETE n° ligne 1 {,n° ligne 2). 
Synonymes : DEL (sur Apple, Dragon 32, 
Lynx...). 

Remarque : Alice (Tandy MC 10) utilise 
DELETE nom de fichier pour supprimer le 
fichier en question. 


Définition : instruction permettant de 
dimensionner un tableau, en précisant le 
nombre de variables qu'il pourra contenir. 
Syntaxe : DIM nom (nbr....) 

ex. DIM A(20) définit un tableau de 21 
variables numériques A(0) à A(20). DIM 
A(20) pour un tableau de variables chaines. 
Remarque : on peut également définir des 
tableaux à deux, trois ou plusieurs 
dimensions (ex : DIM A(10, 7, 30). Sur 
certains OI, DIM est facultatif pour des 
tableaux plus petits que (10,10). 

Voir OPTION BASE 


DISPLAY AT 
Voir PRINT AT. 
DOT Voir PLOT. 


DRAW 


Définition : trace une droite à partir de la 
position du curseur vers un point 
en coordonnées absolues. 








ELSE 
Définition : instruction logique, signifie 
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« Sinon ». ELSE est utilisé en complément 
de l'instruction IF... THEN. 

Syntaxe : ex. IF À 3 THEN GOTO 20 ELSE 
GOTO 100. 


END 

Définition : instruction permettant de mettre 
fin à une séquence ou à un programme. 
Syntaxe : END. 


EOF 

Définition : indicateur de fin de fichier (End 
of File). 

ex : IF EOF (n° de fichier) THEN CLOSE # 
n° de fichier. 


EQ 
Définition : opérateur logique, signifie "=". 
Syntaxe : ex. IF À EQ 3 (si A est égal à 3...). 


ERASE 
Voir NEW. 


ERR, ERL 

Définition : variables utilisées pour la 
détection des erreurs ; ERR contient le code 
de l'erreur la plus récente et ERL le numéro 
de ligne ou elle est survenue. 


EXEC Voir CALL. 


EXIT 

Définition : instruction permettant de 
provoquer une sortie prématurée d'une 
boucle FOR... NEXT (c'est-à-dire avant que 
le nombre prévu d'itérations ait eu lieu). 
Syntaxe : EXIT n° ligne. 


EXP 

Définition : fonction qui donne 

l'exponentielle d'un nombre ou d'une 

variable numérique. Ainsi, EXP (n) est égale 
-à e puissance n (e est la base des 

logarithmes népériens, e = 2,7182818...). 

Syntaxe : EXP (nbr) ou EXP (var) 

Remarque : EXP est la fonction inverse de la 

fonction logarithme népérien. 





FIX 

Définition : fonction qui donne la valeur 
arrondie d'un nombre décimal (c'est-à-dire 
ce nombre sans sa partie fractionnaire), ex. 
FIX (2,3) est égal à 2. 

Syntaxe : FIX (nbr) ou FIX (var). 
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FONT Voir CHAR. 


FOR 

Définition : instruction d'initialisation de la 
boucle FOR... NEXT. Toutes les instructions 
situées entre FOR et NEXT font partie de la 
boucle et sont donc répétées autant de fois 
qu'il est précisé par FOR. 

Syntaxe : FOR var = nbri TO nbr2 (STEP 
nbr3). 

Remarque : var est l'indicateur test de la 
boucle, nbri est sa valeur initiale, nbr2 sa 
valeur finale (condition de sortie) et nbr3 est 
le nombre à ajouter à var à chaque passage 
dans la boucle. 

ex. FOR | = 0 TO 4 STEP 2... NEXT : le 
groupe d'instructions situé entre FOR et 
NEXT sera répété 3 fois (pour ! = 0,2 et 4), 
puis l'exécution du programme continuera 
en séquence derrière le NEXT. 


FRE 

Définition : donne la place disponible en 

mémoire, 

Synonymes : MEM (sur Alice, Dragon 32, 

de Sharp :..) FRÈE, FRE (0), STATUS, 
IZE. 








GE 

Définition : opérateur logique, signifie 
« Supérieur ou égal ». 

Syntaxe : ex. IF À GE 3 (si A > = 3). 


GET 

Définition : instruction permettant la lecture 
d'un enregistrement dans un fichier. 
Syntaxe : variable selon les machines. 
Synonymes : GET# (Atari, CBM 64, 

Vic 20, ..) : INPUT (Apple, Sharp, …..) ; 
INPUT# (BBC, Dragon 32, TI99....). 
Remarque : certains OI utilisent GET pour 
l'interception d'un caractère frappé au 
clavier (voir INKEYS). 


GOSUB 

Définition : instruction d'appel à un sous- 
programme. 

Syntaxe : GOSUB nbr (nbr est le numéro de 
la première ligne du sous-programme 
appelé). 

Synonymes : GSB (sur Casio FX 702 P). 
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Remarque : en fin du sous-programme doit 
figurer une instruction RETURN qui 
provoque le retour au programme principal 
et l'exécution des instructions suivant le 
GOSUB. 


GOTO 

Définition : instruction qui provoque le 
branchement à une autre partie du 
programme, identifiée par son numéro de 
ligne. Le programme s'exécute alors en 
séquence à partir de cette ligne. 

Syntaxe : GOTO n° ligne. 


GSB Voir GOSUB 
GT 
Définition : opérateur logique, signifie 


« SUPÉTIEUT à ». 
Syntaxe : ex. IF À GT 3 (si A est supérieur à 
a.) 





HEXS 

Définition : variable utilisée avec BINS et 
OCTS pour les conversions 
hexa/décimal/binaire. 


HIMEM 

Définition : donne l'adresse de l'octet le plus 

LS dans la mémoire utilisée voir LOMEM, 
RE. 


HOME 

Définition : instruction ou commande 
permettant d'effacer l'écran et de positionner 
le curseur dans l'angle supérieur gauche de 
celui-ci. 

Syntaxe : HOME. 

Synonymes : WIPE (sur Hector). 

Remarque : beaucoup d'Ol utilisent CLS 
dans le sens de HOME. 





IF... THEN... ELSE 
Définition : instruction d'exécution 
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conditionnelle, signifie « SI telle condition 
est remplie ALORS exécuter ce groupe 
d'instructions SINON exécuter cet autre 
groupe d'instructions ». 

Syntaxe : IF condition THEN instruction(s) 
(ELSE instruction(s)). 

Remarque : sur certains OI, signifie IF 
THEN (GOTO). 


INK 
Voir COLOR. 


INKEYS 

Définition : instruction permettant 
l'interception d'un caractère frappé au 
clavier. INKEYS n'interrompt pas l'exécution 
du programme. 

Syntaxe : var = INKEYS. 

Synonymes : GET (sur Apple, CBM 64, Vic 
20, ….) ; KEYS 

(sur Oric 1 et Atmos). 


INP 

Définition : instruction permettant de lire 
une valeur sur un des ports de l'OI. 
Syntaxe : INP n° port, var. 


INPUT 

Définition : fonction permettant la lecture de 
données entrées au clavier ; Input affiche un 
message à l'écran suivi d'un point 
d'interrogation et attend une saisie ; celle-ci 
ne sera affectée à une variable qu'après un 
Return. 

Syntaxe : INPUT (« message ») var. 
Remarque : certains Ol utilisent INPUT # 
pour la lecture d'un fichier 

(voir GET). 


INSTR 

Définition : fonction qui donne la position 
du premier caractère d'une chaîne (B$) à 
l'intérieur d'une autre (A$). Le résultat est 
nul si B$ ne se trouve pas dans A$. 
Syntaxe : INSTR (A$,B$.,n]) n indique qu'il 
faut chercher B$ à partir du n°"* caractère 
de la chaîne A$. 


INT 

Définition : fonction qui donne la partie 
entière d'un nombre, c'est-à-dire qui 
arrondit ce nombre à l'entier le plus proche. 
Syntaxe : INT (var) ou INT (nbr). 


INVERSE 

Définition : commande ou instruction 
permettant d'inverser les couleurs de l'écran 
(le noir sur blanc deviendra blanc sur noir). 
Syntaxe : INVERSE. 

Synonymes : VDU18 (sur Lynx) ; PLOT (sur 
BBC, utilisation particulière). 











Los er ie on | 
KEYS 
Voir INKEYS. 





LE 

Définition : opérateur logique, signifie 

« inférieur ou égal ». 

Syntaxe : ex. |F A LE 3 (si A est inférieur ou 
égal à 3... 


LEFTS 

Définition : fonction qui donne les 
caractères de gauche d'une chaîne. 
Syntaxe : LEFTS (nom de variable chaîne, 
longueur à extraire). 


LEN 

Définition : fonction qui donne la longueur 
d'une chaîne. 

Syntaxe : LEN (nom de chaîne). 


LET 


Définition : instruction d'affectation 
permettant d'attribuer une valeur à une 
variable. 

Syntaxe : (LET) var = expression. 


LINE 

Définition : trace une droite entre deux 
points en coordonnées absolues ex : LINE 
(110,60) — (22,66). 


LINK 
Voir CALL. 


LINPUT 

Définition : accepte la saisie d'une ligne 
complète de texte sans possibilités d'édition 
de cette ligne ; LINPUT permet de saisir au 
clavier les caractères de contrôle qui 
perturbent habituellement l'état de 
l'ordinateur. 


LIST 


Définition : commande ou instruction 
permettant d'afficher à l'écran un 





programme ou les lignes demandées. 
Syntaxe : LIST [n° ligne 1, [n° ligne 2]. 
LLIST 

Définition : commande ou instruction 
permettant de lister sur imprimante un 
programme ou les lignes demandées. 
Syntaxe : LLIST [nbr1 [, nbr2]. 

LN 

Voir LOG. 

LOAD 

Définition : commande permettant de 
charger un programme en mémoire centrale. 
Syntaxe : LOAD nom de fichier (la syntaxe 
est très variée d'une machine à une autre). 
Synonymes : CLOAD (certains OI utilisent 
CLOAD pour charger un fichier, qu'il 
provienne de cassette ou disquette). 
LOCATE 

Voir POS. 

LOG 

Définition : fonction qui donne le logarithme 
népérien (base e) d'un nombre ou d'une 
variable numérique. 

Syntaxe : LOG (var) ou LOG (nbr). 
Synonymes : LN (sur BBC, Casio, Lynx, 
Oric, Sharp et ZX ..). 

Remarque : certains Ol utilisent LOG pour 
calculer le logarithme décimal (voir CLG). 
LOG 10 

Voir CLG. 

LPRINT 

Définition ; instruction d'écriture immédiate 
sur imprimante (équivalent du PRINT qui 
écrit sur l'écran). 

Syntaxe : LPRINT « message » (le message 
peut inclure des caractères de contrôle 
souvent spécifiques de l'imprimante). 

LT 

Définition : opérateur logique, signifie 

« inférieur à ». 

Syntaxe : ex. IF À LT 10 (si À est plus petit 
que 10 ..). 


( 


MAX 

Définition : fonction qui donne le maxima de 
deux valeurs ou variables numériques. 
Syntaxe : ex. M = À MAX 10, M sera égal à 
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10 si A est inférieur à 10, il prendra la valeur 
de À sinon. 


MEM 
Voir FRE. 


MERGE Voir CHAIN. 


MIDS 

Définition : fonction qui extrait une sous- 
chaîne de longueur donnée, à partir du n° 
caractère d'une chaîne initiale (voir SEGS$). 
Syntaxe : MID$ (chaïne, début [, longueur]). 
ex. MIDS (A$,3,5) donnera une chaïne 
composée des 5 caractères situés à droite 

du troisième caractère de A$. 


MIN 

Définition : fonction qui donne le minimum 
de deux valeurs ou variables numériques. 
Syntaxe : var = var MIN var (nbr). 


MOD 

Définition : fonction qui donne le modulo 
d'un nombre par rapport à un autre, c'est-à- 
dire le reste de la division du premier par le 
second. 

Syntaxe : vart = var2 MOD nbr, var sera 
égal au reste de la division de var2 par nbr. 


\ { 
Définition : commande permettant de 


changer le nom d'un fichier. 


Syntaxe : NAME ancien nom, nouveau nom. 
Synonyme : RENAME (sur Apple). 


NE 

Définition : opérateur logique, signifie 

« différent de ». 

Syntaxe : ex. IF À NE 5 (si A est différent de 
5). 

NEW 


Définition : commande permettant d'effacer 
le programme chargé en mémoire. 
Syntaxe : NEW. 

Synonymes : CLEAR (sur Casio). 


NEXT 
Définition : fin de boucle FOR... NEXT (voir 
FOR 





NAME 


Syntaxe : FOR condition instruction(s) 
NEXT. 
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NOTRACE 
Voir TROFF. 


NUM 
Voir AUTO. 





OLD 
Voir CLOAD. 


ON ERROR GOTO 

Définition : instruction permettant de se 
brancher à un programme de traitement 
d'erreur. 

Syntaxe : ON ERROR GOTO n° ligne. 
Remarque : la sortie d'un sous-programme 
de traitement d'erreur se fait par 
l'intermédiaire de l'instruction RESUME. 


ON ERROR OF Voir RESUME. 


ON … GOTO, ON... GOSUB 

Définition : instruction permettant des 
débranchements conditionnels multiples à 
d'autres lignes d'un programme. 

Syntaxe : ON var GOTO n° ligne 1 [,n° ligne 


débranchement en ligne 100 si X = 1, en 
ligne 200 si X = 2 et en ligne 300 si X = 3. 


OPEN 

Définition : instruction d'ouverture de 
fichier. 

Syntaxe : très dépendante de la machine. 
Remarque : OPEN est utilisée en parallèle à 
l'instruction CLOSE. 


OUT 
Définition : fonction qui envoie un code 
ASCII vers un canal de sortie. 





PAUSE Voir WAIT. 


PEEK 
Définition : instruction permettant 
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d'examiner le contenu d'une adresse 
mémoire. 

Syntaxe : PEEK (adresse). 

Remarque : les adresses utilisées dépendent 
de la configuration des registres mémoire de 
chaque machine. L'instruction PEEK est 
donc probablement l'une des plus délicates 
à traiter lors d'une traduction. 


PLOT 

Définition : permet, selon les cas, d'allumer 
un point sur l'écran aux coordonnées 
indiquées, ou de positionner le curseur à ce 
même endroit. 

Syntaxe : PLOT x, y. 

Synonymes : SET (sur Alice) ; PSET (sur 
Dragon 32, Thomson T07 et M05) ; DOT 
(sur Lynx) ; CURSET (sur Oric 1 et Atmos) 


POINT Voir SCRN. 


POKE 

Définition : instruction permettant de ranger 
à une adresse donnée l'octet spécifié. 
Syntaxe : POKE adresse, octet. 

Remarque : instruction similaire à PEEK 
qui engendre la même remarque. 


POS 

Définition : permet, selon les cas, de 
positionner le curseur ou de trouver sa 
position en ligne courante. 

Syntaxe : POS (X, y). 

Synonymes : POSITION (sur Atari) ; 
CURSOR (sur Hector, Oric 1 et Sharp) ; 
CURMOWV (sur Oric Atmos) ; LOCATE (sur 
Thomson T7 et MG5) ; PRINT AT (sur ZX 
80 et Spectrum). 

remarque : le TI 99 utilise POS comme 
INSTR. 


PRESET Voir PLOT. 


PRINT 

Définition : instruction dont les deux usages 
les plus répandus sont : affichage à l'écran 
ou écriture dans un fichier. 

Syntaxe : dépend de la machine et de 
l'utilisation. les plus utilisées sont PRINT 
[< message »] [,var] et PRINT # n° fichier, 
var... 

Synonymes : DISPLAY (dans la fonction 
affichage ; sur TI 99). 


PRINT AT 

Définition : affichage à l'écran à partir d'une 
adresse spécifiée. 

Syntaxe : PRINT « message » AT aûfr. 


PRINT USING 
Définition : instruction permettent de définir 
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les formats spéciaux d'impression. 
Syntaxe : utilise des caractères de contrôle 
propres à chaque OI. 

Synonymes : USING (Sharp). 


PSET 
Voir PLOT. 


PUT 

Définition : selon les cas, PUT inscrit une 
liste de valeurs sur un canal tel qu'écran, 
imprimante etc. (Newbrain). 

En MSX, PUT SPRITE active un lutin à une 
position absolue. 





RANDOMIZE 

Définition : instruction permettant de 
générer une série de nombres aléatoires, 
accessibles à la fonction RND,. 

Syntaxe : RANDOMIZE nbr. 

Synonymes : RND (dans une syntaxe 
particulière) ; SEED (sur Hector) ; RANDOM 
(sur Lynx et sur Sharp) ; RAND (sur ZX 81 et 
Spectrum). 


READ 

Définition : instruction permettant de lire des 
données définies par DATA, et de les placer 
dans des variables. 

Syntaxe : READ var [, var [, .] 

ex. DATA 3,6,8 suivi de READ A, B, C 
permet de placer les valeurs 3, 6 et 8 
respectivement dans les variables À, B et C. 


REPEAT... UNTIL 

Définition : instruction empruntée au Pascal 
qui exécute autant de fois le segment de 
programme donné que la condition est 
vérifiée. 

Syntaxe : REPEAT nom UNTIL condition. 


REM. 

Définition : instruction permettant d'insérer 
des lignes de commentaires à l'intérieur 
d'un programme. L'ordinateur ne tient pas 
compte, à l'exécution, d'une ligne débutant 
par REM. 

Syntaxe : REM commentaires. 


RENAME 
Voir NAME. 


RENUMBER 

Définition : commande permettant de 
renuméroter les lignes d'un programme. 
Syntaxe : RENUM n° ligne début [[.pas]] 
Synonymes : RENUMBER (sur BBC, ..) ; 
RES (sur TI 99) 


RES 
Voir RENUM. 


RESTORE 

Définition : instruction permettant de se 
replacer au début de la première liste de 
données (liste DATA) du programme. 
RESTORE permet ainsi d'utiliser plusieurs 
fois une même liste. 

Syntaxe : RESTORE. 

Remarque : certains interpréteurs 
permettent de se replacer sur une liste DATA 
particulière, identifiée par son numéro de 
ligne. 


RESUME 

Définition : instruction de fin de procédure 
de traitement d'erreurs. Permet de reprendre 
l'exécution du programme à partir de la 
ligne indiquée. 

Syntaxe : RESUME [n° ligne]. 

Synonymes : ON ERROR OF (BBC). 


RET 
Voir RETURN. 


RETURN 

Définition : instruction de fin de sous- 
programme (appelé par GOSUB), RETURN 
provoque le retour au programme principal 
juste derrière le GOSUB. 

Syntaxe : RETURN. 

Synonymes : RET (Casio). 


RIGHTS 

Définition : fonction qui donne les 
caractères de droite d'une chaîne. 

Syntaxe : RIGHTS (nom de variable chaîne, 
longueur à extraire). 


Définition : fonction qui donne un nombre 
tiré aléatoirement. 

Syntaxe : RND (nbr). 

Synonymes : RAND. : 

Remarque: il existe de nombreuses va- 
riantes dans la façon de l'utiliser : avec ou 
sans RANDOMIZE, différents intervalles 
dans lesquels les chiffres sont générés. à 
Surveiller de près. 


RUN 


Définition : commande permettant de lancer 
l'exécution d'un programme (celui contenu 
en mémoire). 

Syntaxe : RUN [n° ligne]. 


RUN MERGE 
Voir CHAIN. 








SAVE 

Définition : commande permettant de 
sauvegarder sur cassette ou disquette un 
fichier (ou un programme). 

Syntaxe : SAVE [nom de fichier] est la plus 
fréquente, syntaxe variable selon la machine 
et le type de mémoire sur lequel on veut 
effectuer la sauvegarde (disquette ou 
cassette). 

Synonymes : CSAVE est utilisée par certains 
OI de façon indifférenciée. 


SCREEN 


Définition : définit la couleur du fond de 
l'écran ou d'autres attributs. 


SCRN 


Définition : fonction qui donne la couleur du 
point de coordonnées indiquées. 

Syntaxe : SCRN (x, y). 

Synonymes : POINT (sur Alice, BBC, Hector, 
Oric et Thomson) 


SEED 
Voir RANDOMIZE. 


SEGS 
Voir MID$. 


SET 
Voir PLOT. 


SGN 

Définition : fonction qui donne le signe d'un 
nombre ou d'une variable numérique. SGN 
(X) sera égal à — 1 si X est négatif, 0 

si X = 0 et + 1 si X est positif, 

Syntaxe : SGN (var) ou SGN (nbr). 


Définition : fonction qui donne le sinus d'un 
angle. 
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Syntaxe : SIN (var) ou SIN (nbr). 
Remarque : voir COS. 


SINH 

Définition : fonction qui donne le sinus 
hyperbolique d'un nombre réel (positif ou 
négatif). 

Syntaxe : SINH (var) ou SINH (nbr). 
Synonymes : SNH. 

Remarque : voir COSH. 


SNH 
Voir SINH. 


SPACES Voir SPC. 


SPC 

Définition : fonction qui est utilisée pour 
générer une chaîne d'espaces (blancs). SPC 
est souvent utilisée avec PRINT pour insérer 
des espaces à l'affichage. 

Syntaxe : SPC (n) génère un nombre n 
d'espaces. 

Synonymes : SPACES . 


SoR 

Définition : fonction qui donne la racine 
carrée d'un nombre ou d'une variable 
numérique (positifs ou nuls). 

Syntaxe : SOR (var) ou SQR (nbr). 


STOP 

Définition : instruction permettant d'arrêter 
l'exécution d'un programme. 

Syntaxe : STOP. 

Remarque : * sur certains OI, STOP 
provoque l'arrêt définitif du programme, 
alors que sur d'autres, l'exécution peut être 
relancée par CONT. 


STRINGS 

Définition : fonction qui génère une chaîne 
par répétition du même caractère un nombre 
de fois voulu. 

Syntaxe : STRINGS (nbr, variable chaine). 
ex. STRINGS$ (10, AS) va générer une chaîne 
composée de 10 fois la chaîne A$. 


STRS 

Définition : fonction qui permet de 
transformer un nombre ou une variable 
numérique en variable chaîne. 

Syntaxe : STRS (var) ou STRS (nbr). 

ex. STRS$ (1234) transforme le chiffre 1234 
en la chaîne "1234". 


SWAP 

Définition : instruction permettant 
d'échanger le contenu de deux variables du 
même type. 

Syntaxe : SWAP vart, var2. 
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SYS 
Voir CALL. 


SYSTEM 

Définition : commande permettant de quitter 
le moniteur Basic et de revenir sous le 
système d'exploitation. 

Synonymes : BYE, INIT 

Remarque : * SYSTEM est utilisée par 
certains OI pour charger en mémoire des 
programmes en langage machine. 





TAB 

Définition : utilisé conjointement à PRINT, 
TAB positionne le curseur autant de cases 
plus loin que spécifié. 


TAN 


Définition : fonction qui donne la tangente 
d'un angle. 

Syntaxe : TAN (var) ou TAN (nbr). 
Remarque : voir COS. 


TANH 

Définition : fonction qui donne la tangente 
hyperbolique d'un nombre réel (positif ou 
négatif). 

Syntaxe : TANH (var) ou TANH (nbr). 
Synonymes : TNH 

Remarque : voir COSH. 


TIMES 

Définition : contient la date courante ou bien 
l'heure standard sous forme de chaîne. 
TNH 

Voir TANH. 


TRACE 
Voir TRON. 


TRACE OFF 
Voir TROFF. 


TRACE ON 
Voir TRON. 


TROFF 

Définition : commande d'annulation de la 
commande TRON,. 

Syntaxe : TROFF. 
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Synonymes : TRACE OFF (sur BBC, 
Lynx...) ; NOTRACE (sur Apple) : UNTRACE 
(sur TI 99). 


TRON 

Définition : commande permettant de 
visualiser, en cours d'exécution d'un 
programme, le numéro des lignes 
exécutées. Cette commande est un outil de 
débogage qui permet de retracer le 
cheminement d'un programme en cours 
d'exécution et donc de vérifier si des erreurs 
de logique ne s'y sont pas glissées. 
Syntaxe : TRON. 

Synonymes : TRACE (sur Apple, TI 99) : 
TRACE ON (sur BBC, Lynx, ….). 





UNTRACE 
Voir TROFF. 


USING 
Voir PRINT USING. 


USR 

Définition : appel d'un sous-programme en 
langage machine. Certains OI utilisent USR 
pour passer des paramètres à Ce SOUS- 
programme. 

Syntaxe : USR adr [, paramètre]. 
Synonymes : LINK (sur Atom, …) ; CALL 
(sur Sharp, ..). 





VAL 

Définition : fonction qui permet de 
transformer une chaîne numérique en un 
nombre (ou une variable numérique). 
Syntaxe : VAL (chaîne). ex. si A$ = 

« 321 », VAL (AS) 

donnera le chiffre 321. 
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WAIT 

Définition : commande ou instruction 
permettant d'interrompre un programme 
pour une période déterminée. 

Syntaxe : WAIT nbr généralement nbr est ur 
multiple d'une base de temps propre à 
chaque machine. 

Synonymes : PAUSE (sur Lynx, ZX 81 et 
Spectrum, …). 


WHILE...WEND 

Définition : instruction d'exécution 
conditionnelle, signifie « TANT QUE » telle 
condition est réalisée, exécuter les ordres 
situés entre WHILE et WEND (WEND repère 
la fin de la boucle). 

Syntaxe : WHILE condition instruction (s) 
WEND. 

Synonymes : la logique inversée du 
REPEAT...UNTIL assure le même rôle que le 
WHILE...WEND. 


WIPE 
Voir HOME. 





XOR, OR, NOT 

Définition : opérateurs logiques correspon- 
dant aux « ou exclusif », « ou inclusif » et 
« négation ». 

Synonyme : EXOR 





ZONE | 
Définition : définit la longueur d'affichage 
d'une instruction PRINT. 





LABYRINTHE 





ITY 


C'est aussi l'hiver sous le dôme de la ville-bulle, et dans les brumes 
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matinales, votre voix semble deux fois plus forte : seuls les néons 





luminescents au coin des rues guident vos pas vers le « bout du rouleau ». 











ainsi qu'un sextant électronique. No future ! 





188 REX 
118 REN LABYRINTHE CITY 


138 REX HCHAR=PRINT AT(LIGNE,COLONNE ,ASCII ,REPETITION 
HORIZONTALE) 

148 REM VCHAR=PRINT AT (LIGNE ,COLONNE ASCII ,REPETITION 
VERTICALE) 

150 REM CHAR=DEFINIT LA FORME DU CARACTERE 


152 REN COLOR=IGROUPE DE CARACTERES, COULEUR FOND) 

154 REM SPRITE (NUMERO, ASCII COULEUR, POSITION H ET V) 
188 RANDOMIZE : DIM LAB(28,28): CLEAR 

178 FOR 1=8 TO 11 : COLOR(I,5,1): MEXT L : COLOR(12,15 
11,13,3,1,141 3,1): IF MAC=1 THEN 308 

180 RESTORE 190 : FOR 1=97 T0 113 STEP 4 : READ K$ : C 
HARUI,K#): NEXT 1 : GOTO 238 

198 DATA FFOOBODOBAUR COPA AR ABDRUPOF F FRERE RBOEAE 
amaaiala1a1a181418 

200 DATA 90402010080402818102048818204880FF21818181818 
1BIB1B1GBIAIAIAIFF 

218 DATA BRBBABABOBABEFFFFB0BBR0BBSAGRUR 850 5C | BÈDB 
d0001838571 1214181 

228 DATA BOCOATOR884828 1200000 0000UUURrF Ea280B2B ABS 
@8aQ,FFFFFFFFFFFFFFFF8 

238 CHAR(128, "88080808 183870F 1CSC3C7C7C7CFCFCFCFCFCFC 
1C7C7C3C3CICOFO78301" 

248 CHAR(132,"BBOGRF7FFFFFFFFFOBQBFFFFFFFF7F BF BBACEF 8 
FEFFFFFFOQGOFFFFFFFEF BC*) 

258 CHAR(136, "BROORGRGBUBBACAERF UF BF BF BF BFCFCFCFCFCFC 
FAFBFAFAFAEQC EE") 

268 CHAR (128, "AASSAASSAASSAASS" ) 

278 DEF FRAC(H)=H-INT (H) 

288 DEF YD(F)=INT (F+.5) 

298 DEF KHAN= (ABS (LAB (VPOS+1 ,HPOS)=1)+ (LAB (VPOS,HPDS+ 
1)C1)#(LABUVPOS ,HPOS-1){1) )=3) 

388 NBLABY=INT (RND#S) +1 

318 ON NBLABY GOTO 328,338,340,350,368 

328 RESTORE 448 : GOTD 378 

338 RESTORE 498 : GOTO 378 

340 RESTORE 548 : G0TO 378 





358 RESTORE 598 : GOTO 378 


| 368 RESTORE 648 


370 FOR 1=20 TO 1 STEP -1 

380 READ A$ 

390 FOR 6=1 T0 28 

408 LAB(T,G)=VALISEGS(A$,6,1)} 

418 NEXT 6 

428 MENT T 

430 6OTO 498 

498 DATA "At111ti1itttttttttnt" "aititittttttntiititi" 
"igittititititiititti" "1 @BtBBeaei 11111111" 

580 DATA "11818181818111111111","11818181818111888001" 
"118I81BIR100MB18181" "1 1B8BIBIB11188118181" 

518 DATA "11111101811801118181","11111181818011118101" 
"iti11181888181118181" "1 1881181111881118181" 

520 DATA "11181108080811118101","11181111111080888101" 
"itt8i@t1i8i111111181", "1 1181808881111111181" 

530 DATA "11180811108888880001" ,"i111811118111111111" 
"1111808@801111111411" "A 1AtAtAIASAEINAtt" 

548 DATA “111111114111141111" "AAAANAANIAEATIANII" 
HANAAINANAANAABN","E 1111111111888188811* 

550 DATA "11111108811818181111","11110881888818a01 111" 
"Htt@iItAItIIAtAE","E 111@@@BAIII111I1 1" 

568 DATA "118111111@1111181111" "118111118801 111811 11" 
"iLBORMAMDARRgAg 111" ,"1 1111188888881111111" 

570 DATA “1111B80800800811i11i1" ,"18011111111110800011" 
"i@@gii111i1111111011"," 8111111180888088811" 

580 DATA "18081111181111111111","111011@881111111411" 
"iHI8MULIQIILALALENI" "LE LAtANAATIAINIAAEI" 

598 DATA "1114111111141141441","A1IINTANASAAAAINANS 
"id8aiiiiiiiiiitiiitle "1 GOR0ge8eaaaei 11" 

888 DATA °11111131111111181111","111111110081188811 11" 
"i1111111818088111111","E 1111111@11111111411" 

b1B DATA "11808888811111111111","11811111111111118080" 
"IIBIBIBIBIAIILIIBIBI" "1 18180@21aL11118181" 

828 DATA "11811818188811111181","11081818181888011181" 
"i188i818181111818181" "1 1811118101181888181" 

838 DATA "11811118800881111181"," 1180000812 108000088;" 
MAANANAAQAANAAA" "A LAAANAAANAANAAINN" 

b48 DATA "11111141114114114141" "1141111 ANIAANENANN" 
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,"11111111111111118011","1 G001881808080810181" 
658 DATA "18118818811818188181","18818108181088881081" 
,"11818181888111111811","1 @818180818010881011" 

668 DATA “18118118181881181811","10810180080088181081" 
,"11808111818110888181","1 G8G1180808081818181" 

‘678 DATA "18118881111181818181","18818181818181808181" 
,"11818180888081811181","1 @818811181111118081" 

688 DATA “18180800881888118181","18811181188818118111" 
,"11800088181118888111","1 111111111111411111111111" 
698 FOR 1=0 T0 7 : LAB(YD(RND#17)+2,YD(RND#17)+2)=0 : 
NENT 

780 REN DEPART 





748 CLEAR : HCHAR(28,1,118, 32) 
758 REM POSITION(FACULTATIF} 
768 REM DEBUT 

778 PRINT AT (21,24) :"OAEEL": TAB(24); "OA 1°: TAB(24) ; "OA 
1°: TAB (24); "oAEEl" 

788 SPRITE(#1,114,14,186,223) 

798 REX FIN 

808 PRINT AT(22,1)S1ZE (16): "VOTRE POSITION :* : HCHAR( 
23,1,110,25): PRINT AT(24,1)S12E (19) : "VOTRE 
DEPLACEMENT ?* 

818 REN DESSIN CASES 

828 REM 1" CASE 830 IF KHAN THEN HCHAR(11,1,97,32): 60 
T0 1180 

848 IF LAB(VPOS,HPOS-1)C1 THEN HCHAR(11,1,97,7): HCHAR 
(118,183): VCHAR(12,8,188,8): GOTO 868 

858 FOR 1=1 T0 8 + HCHAR(19-1,1,102): NEXT I : VCHARUI 
1,8,108): (12,8,108,8) 

868 1F LAB(VPOS,HPOS+1)C1 THEN HCHAR(11,26,97,7): HCHA 
R(11,25.186): VOHAR(12.25,99,8): GOTO 888 

878 FOR 1=1 T0 8 + HCHAR(19-1,33-1,181): NEXT ! : 
HCHAR(11,25,109): : R(12,25,99,8) 

888 REN 2* CASE 

898 1F LAB(VPOS+1,HPOS)=1 THEN 1180 

908 1F LAB(VPOS+1,HPOS-1)(1 THEN 928 

918 FOR 1=8 TO 3 : HCHAR(18-1,941,182): NEXT I : HCHAR 
(7,12,188): VCHAR(B,12,180,7): GOTO 948 
HCHAR(7,1,97,11)2 HCHAR(10,1,98,8): HCHAR(7,12,183): V 
CHAR (8, 12, 188,6) 

938 HCHAR(14,12,184): HCHAR(14,9,98,3) 

948 IF LAB(VPOS+1,HPOS+1)(1 THEN 968 

958 FOR 1=8 TO 2 : HCHAR(18-1,24-1,181): NEXT I : HCHA 
R(7,21,189): VCHAR(B,21,99,7): BOTO 988 

968 HCHAR(7,22,97,11): HCHAR(L8,25,98,8): HCHAR(7,21, 1 
8) 

978 VCHAR(8,21,99,6): HCHAR(14,21,185): HCHAR(14,22,98 
3) 

988 REM 3* CASE 

998 IF LAB(VPOS+2,HP0S)=1 THEN 1108 
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1888 1F LAB(VPOS+2,HPOS-1)=1 THEN HCHAR(S,14,188): HCH 
AR(6,13,182): R(6,14,108,3): GOTO 1038 
HCHAR(5,1,97,13): HCHAR(6:1,98,12): HCHAR(S, 14,183): V 
CHAR (4,14, 108,2) 

1828 HCHAR(8,14,184): HCHAR(B, 13,98) 

1838 IF LAB(VPOS+2,HPOS+1)=1 THEN HCHAR(5,19,189): HCH 
AR(6,28,181): R6,19,99,3): GOTO 1858 ELSE 

HCHAR(5, 28,97, 13) 

1848 HCHAR(É,21,98,12): HCHAR(S,19,186): VCHAR (D, 19,99 
,2): CAL L HCHAR(8,19,185): HCHAR(B, 28, 98) 

1858 REX BROUILLARD 

1868 1F LAB(VPOS+3,HPOS)=1 THEN 1188 

1878 FOR 1=5 T0 8 

1888 HCHAR(I,15,128,4) 

1898 EXT 1 

1188 PRINT AT(22,18)S12E(5):USING 48,88: VPOS;HPOS : CL 
«| 

1118 CL=CL+i + IF CL=16 THEN 1188 ELSE COLOR(#1,CL)3 K 
EY(Q,K,S): IF S=8 THEN 1118 ELSE V,H=8 

1128 K=POS("DESN*,CHRS(K) ,1)2 IF K=8 THEN 1118 

1130 1F K=2 THEN V=1 

1148 1F K=4 THEN V=-1 

1150 IF K=3 THEN H=-1 

1168 IF K=1 THEN H=1 

1178 IF VPOS+V=19 THEN 1238 

1188 IF LAB(VPOS#V,HPOS+#H)=1 THEN 1118 

1198 FOR 8=28 TO @ STEP -4 : SOUNDI-50,118,8+1 ,220,&+2 
,-b,@): NEXT € 

1288 VPOS=VPOS+V : HPOS=HPOS+#H 

1218 LAB(VPOS,HPOS)=-1 

1215 REX POSITION(FACULTATIF) 

1228 LOCATE(#1,188-VPOS,213+HP0S): HCHAR(1, 1,32, 688) : 
6070 818 

1238 CLEAR : DELSPRITE (#1) 

1248 FOR 1=8 TO 8 + COLOR(I, 14,1): NEXT 1 : COLOR(18, 1 
8,1,11,11,1) 

1258 COLOR(I, 12,1) 

1268 PRINT “VOUS AVEZ GAGNE" 

1278 FOR T=28 TO 1 STEP -1 

1288 FOR T2=1 TO 28 

1270 FOR 1:28 T0 1 STEP -1 

1288 FOR T2=1 TO 28 

1290 IF LAB(T,T2)=-1 THEN HCHAR(24-T,8+72,187): GOTO 1 
318 

1308 HCHAR(24-T,8+72, ASC ISTRS(LABUT, T2) ))+64) 

1318 NEXT T2 

1328 NEXT T 

1338 PRINT : : "VOICI VOTRE LABYRINTHE" 

1348 REM FIN 

1358 60TO 1358 

1368 DATA 208,392,208, 349, 208,330, 208, 294,888, 277, 1888 
,294 
1378 END 








































































UN MOT 


_ POUR UN AUTRE 


Une image, une “ cuve à lettres ” 








une flèche de e, un tirage 
au sort, sont une partie 





ui vont vous permettre 





de créer des mots. et de faire 


votre bilan orthographique. 
Acerochez-vous, le succès est au bout 


de votre persévérance. 





‘utilisateur doit avoir à sa 


disposition des cartons sur 


lesquels seront collées des 


images correspondant aux mots 


contenus dans le programme. 


Ces cartons seront numérotés 


dans l'ordre des “DATA” des 
lignes 1030 à 1055. 
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18 REX PROGRAMME "LEXIGRUE" D'AIDE À L'APPRENTISSAGE 
DE L'ORTHOGRAPHE - ECRIT POUR TRS88, MODELES I OÙ III, NI 
VEAU 11, 16K 
###AUTEUR: BERNARD BEAUVISAGE 
SELON LE NOMBRE DE MOTS INTRODUITS, VOIR LE 
S LIGNES 188 (T#()), 388 (RND) ET 1888 (BOUCLE) 
48 CLS:CLEARS@B: DEF INTA-Z:X=0:Y=8:P1=@:PP=8:DINTS (188) ,L$ 
(128) ,L1#(128) ,N1$(25) ,N1 (25) 
58 RANDOM 
68 PRINTCHRS(23):A$="#### LEXIGAUE ###4" 
70 PRINT:PRINT:PRINTTAB((32-LEN(A#))/2)A$ 
88 PRINT:PRINT:PRINT"PREPARE TES CARTONS ..,." 
98 60SUB 448:REM ACQUISITION. MOTS INTRODUITS 
188 6OSUB 520:REN ACQUISITION DES LETTRES 
TIRAGE AU SORT DU NOT À ECRIRE 
128 N=RND (38) :N$=T$ (N) 
138 CLS:PRINTCHRS (23) 
148 PRINT:PRINT:PRINT"TU DOIS ECRIRE LE MOT REPRESENTE PA 
R LE DESSIN":PRINT@662, "NUMERO ":N:PRINT@832,"TAPE SUR UN 
E TOUCHE QUAND TU AS TROUVE LE CARTON" 
158 B$="":B$=INKEYS:FOR 1=1TOS88:NEXTI: PRINTR662," 
*:FORI=1T02808:NEXT:IF B$="" THEN PRINT@662, "NUMERO 
":N:6070150 
168 REN DESSIN DE LA GRUE, DE LA CUVE A LETTRES ET D 
E LA BOITE A MOTS 
170 CLS:PRINT:FOR N=1T0127:SET(X,2):NEXT:PRINTCHRS (191); 
188 FOR 1=1T031:PRINTCHRS(137)+CHR$ (152) ; :NEXT 
198 PRINTCHRS#(191); 
208 FOR X=110127:SET(X,6):NEXT 
218 FORY=67014:SET(89,Y):NEXT:SET(98,Y):SET(89,Y):SET(88, 
Y} 
228 FOR Y=187T044:SET(2,Y):SET(72,Y):NEXT 
236 FORI=27072:SET(X,43):SET(X,44):NEXT 
248 FOR Y=241027:SET(76,Y):SET(125,Y):NEXT 
258 FORX=7610125:SET(X,28):NEXT 
268 FORY=297044:SET(B6,Y):SET(87,Y):SET(114,Y):SET(115,V) 
&NEXT 
278 FORX=88T0113:SET(X,32):SET(X,36):NEXT 
288 PRINTE748,STRINGS(3,191)+"LEXIGRUE "+STRING# (3,191); 
298 D$="P : PRENDRE - D : DEPOSER - T : TERMINE":PRINTE96 
8,D#; 
388 GOSUB6AG:REM---AFFICHAGE DES LETTRES EN ORDRE ALEATOI 
RE 
318 1=89:Y=15 
328 REM----GESTION DES COMMANDES CLAVIER 
330 CC=8:60SUB 738:CC=8 
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UN MOT POUR UN AUTRE 


Le tirage au sort désigne un 
carton, et donc un mot qui devra 
être écrit correctement. 

L'écran fait ensuite apparaître un 
dessin représentant : 

1. Une “ cuve à lettres ” où l'on 
puisera pour écrire le mot ; 

2. Une flèche de grue, un câble 
et un crochet “ aimanté " qui 
servent à puiser les lettres, à les 
transporter et à composer le mot ; 
3. Une “ cuve à mots ” où le mot 
doit être écrit en y déposant les 
lettres une par une. 


Le crochet de grue se dirige au 
moyen des quatre flèches du 
clavier. Pour prendre une lettre, il 
faut amener le crochet aimanté 
juste au-dessus, puis taper 
<P> : la lettre est alors “ accro- 
chée ” et peut être transportée. 
Pour déposer une lettre dans la 
cuve à mots, il faut taper <D>. 
La lettre est alors “ décrochée ”. 
Le fait de taper <T> provoque le 
test du mot tel qu'il est écrit dans 
la cuve à mots : si l'orthographe 
est mauvaise, ou si le mot est 


incomplet, un message « IL Y A 
UNE ERREUR !!! CONTINUE » 
apparaît ; il s'efface dès l'appui 
sur une touche de flèche. 

Pour corriger, on peut reprendre 
des lettres dans la cuve à mots, 
les ramener dans la cuve à 
lettres, et les remplacer par 
d'autres. Si le mot est bien écrit 
(les espaces ne sont pas pris en 
compte), les plus vives félicita- 
tions sont adressées au joueur 
qui est invité à poursuivre la 
leçon. 


340 IF P=1THENGOSUB948:G60T0338 

350 IF D=ITHENDI=1: G0SUB980:6010330 
368 IF T=1THENGOSUB1058:60T0338 

370 IF N2$CNSTHENS38 

388 REN---- FIN DU PROGRAMME 

398 CLS:PRINTCHRS (23) 


400 PRINT:PRINT:PRINT: PRINT" BRAVO !!! LE MOT EST BIEN ECR 


ÎT" 


410 PRINT: INPUT" VEUX-TU ESSAYER UN AUTRE MOT ";B$:1F LEFT 


$(B$,1)="0" THEN 120 

428 PRINT:PRINT'ALORS, AU REVOIR": END 

438 REN----SSPROG ACQUISITION DES MOTS 

448 FORI=1TOSG:READ T$(1):NEXTI:RETURN 

458 DATA MAISON,ARBRE ,FLEUR,FRAISE ECOLE 

468 DATA POT,CERISE ,CHAISE, TABLE, CASSETTE 

478 DATA CHEMISE CHAUSSURE , PAPA, MAMAN, CRAYON 
488 DATA BANC, VELO, TABLEAU, TRAIN, GARE 

498 DATA LIVRE, LIT, COUTEAU, FOURCHETTE ASSIETTE 
508 DATA CASSEROLLE, CHAPEAU, MANTEAU, CHATEAU, VERRE 
518 REM----SSPROG ACQUISITION DES LETTRES - LISTE DE 128 
AVEC FREQUENCE DIFFERENCIEE 

528 FORI=1T0128:READLS (1): NEXTI:RETURN 

538 DATA AAA AA AA AAA 

548 DATA E,EE,E,EE,E EEE, EE 

558 DATA 1,1,1,1,1,1,0,1,1,1 

568 DATA 0,0,0,0,0,0,0,0,0,0 

578 DATA U,U,U,U,U,U,U,U,U,U 

588 DATA Y,Y,B,B,B,B,C,C,C,C,D,D,D,D 

598 DATA F,F,F,F,6,6,6,H,H,H,d 40,1 

608 DATA KKL,L,LLL MMA NN NN 

b18 DATA P,P,P,P,P,O,B,R,RRRR,S,S,5,5,5,5 
828 DATA T,T,T,T, TV, VV V,N,X,1,1,7 


638 REN----SSPROG TIRAGE AU SORT ET AFFICHAGE DES LETTRES 


DANS LA CUVE À LETTRES 
648 Y=387:Y1=-2:FORI=110128:L1$(1)="":NEXT 
658 FORI=110128 


668 II=RND(128):1F11=@ ORLI$(11)()*" THEN 668 ELSELI#(11) 


=L$(11) 
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678 IF I1=0THEN66Q 

688 Y1=Y1+2:1F VI=SBTHEN Y2=V+Yi:Y1=-2:Y=Y+64 ELSE V2=V4Y 
1 

698 PRINT@Y2,L1$#(11); 

788 NEXT 

718 RETURN 

728 REN----SSPROG GESTION DU CROCHET DE GRUE - COMMANDES 

PAR LES 4 FLECHES 

738 CC=PEEK(14459):LH=7:L1=38:L2=23:L3=14:L6=5:LD=122 

T48 B$=INKEYS: 1FB$="P"THENP=1 : RETURNELSE 1FB$="D"THENP=8: D 
212RETURN ELSEIFB$="T"THENP=8:D=8: T=1: RETURN 

738 REN---LE CROCHET MONTE 

760 IF CC=8 THEN IFYCLH#ITHEN738 ELSE DI=@:RESET(X-1,Y):R 
ESET(X,YI2RESET(X+#1,Y)2Y=Y-1:SET(X-1,Y):SET(X, VI: SET(X#1, 
Y):IFPPOBTHEN M=M+1:60T0850 

778 IF CC=16ANDPP()@THEN918 

788 REM---LE CROCHET DESCEND 

798 IF CC=16 ANDDI=@THENIFX(72ANDY)L1THENT38ELSE1FX)7@AND 
AC79ANDY)LITHENTSBELSEIFK)77ANDY)L2THEN738ELSE RESET(X-1, 
YI2RESET (+1 ,V):V=Y+1:SET(X-1,Y):SET(X,Y):SET(X#1,V) 

800 REN---LE CROCHET VA A GAUCHE 

818 IFCC=32THENIFX(8BANDX)7BANDY )LSTHEN7 JGELSE IF (LGTHEN7 
JOELSE D1=8:FORI=LHTOY:RESET(X,1):SET(X-1,1):NEXT:RESET (X 
+1,Y)2SET(X, VI: SET(X-2,Y) : X=X-1: IFPPC)BTHENS78 

828 REM---LE CROCHET VA A DROITE 

830 IFCC=64THENIFX)6BANDX<7BANDY >LSTHENT S8ELSE IF X)LDTHEN7 
JRELSE D1=8:FORI=LHTOY:RESET (X,1):SET(X+1,1):NEXT:RESET (X 
1, Y):SET(X, VI: SET (X+2,Y):X=X+1: IFPPC)BTHENS98 

848 REM---LETTRE TRANSPORTEE VERS LE HAUT 

858 IFMC)STHEN73GELSE POKEP1,32:P1=P1-64:POKEP1 ,PP:N=0:60 
10738 

868 REM---LETTRE TRANSPORTEE VERS LA GAUCHE 

870 61=61+1:IF61=2THENPOKEP1 ,32:P1=P1-1:POKEP1 ,PP:61=@:60 
T0738ELSE738 

880 REM---LETTRE TRANSPORTEE VERS LA DROITE 

890 62=62+1: IF62=2THENPOKEP1 ,32:P1=P1+1:POKEP1 ,PP:62=@:60 
10738 ELSE738 

900 REM---LETTRE TRANSPORTEE VERS LE BAS, AVEC FILTRES PL 








US NONBREUX 

918 IFX(72ANDY)LI-STHEN7SBELSETF 1 >7BANDX<BBANDY L3S-STHEN7 
JUELSEIFA)77ANDY>L2-3STHEN738ELSEPOKEP1 ,32:RESET(X-1,Y):RE 
SET(X+41, VIE SETUX,Y+1)2SET(X,Y+2) 2 SET (X,Y+3) :Y=Y+3:SET(X+1 
N:SET(X-1,Y):1P1=P1+84 

928 1FP1)15974ANDP1(15997THENPOKEP1-64,PP:6010738 ELSE PO 
KEP1,PP:6010738 

938 REM---SSPROG DE PRISE DE LETTRE (P=1) 

948 P1=(15368+((b4#INT(Y/3))+INT(X/2)) +64) :PP=PEEK(P1) 
930 L2$=CHRS (PP) 

968 RETURN 

978 REN---SSPROG DE DEPOSE DE LETTRE (D=1) 

988 FORI=1T024 

998 NLIT)=PEEK (1591841) :N1$(T)=CHRS (NL (I) ) 

1080 NEXT I:PP=@:P1=0:M=0:61=0:62=0 

1818 FORI=1T024 

1028 POKE15910+1,N1(I):N1$(I)=CHRS# (NI (I) ) 








1838 NEXT:RETURN 

1848 REN---SSPROG DE TEST DU MOT (T=1) AVEC FIN OU MESSAG 
E D'ERREUR 

1958 N24="":FORI=1T023 

1868 N1(I)=@:N1$(I)=" * 

1870 N1(1)=PEEK(15918+1) : IFNI (1) =32THEN1098 

1988 N1$(I)=CHR$(NL(I)):N2$=N2$4N1$(1) 

1098 NEXT 1:IFN2$=""THEN1138 

1180 FORI=1TOLEN(N2$) : IFASC(NIDS (N2$,1,1))}()32THEN1118ELS 
ENEXTI 

1118 I=I-1:N28=LEFT$(N2$,LEN(N2$)-1) 

1128 IF N2$=N$THEN398 

1138 C$="IL Y A UNE ERREUR !! CONTINUE" 

1148 B$="":B$=INKEYS:PRINTR192,C$; :FORI=1TO288:NEXT: PRINT 
8192,STRINGS (LEN(C#) ,32) ;:FORI=1TO28B:NEXT: IFB$=""THEN1 14 
BELSEPRINT192,STRING$ (LEN(CS) ,32); 


1158 T=8:RETURN B. Beauvisage 


PANIQUE À L'HOTEL 





Ironie du sort, la machination infernale 
ourdie par vos plus proches ennemis 
vous emplit d'aise. Enfin de l'action, 

des risques et du péril 
ui vous procurent le frisson exquis 


du danger : tout va sauter ! Attention. 
des instructions plus complètes 


vous attendent au sein de ce programme. 
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18° + TROUVEZ LA BOMBE i 
28 ° ! AUTEUR : S, QUENSON DE LA HENNERIE $ 
38 ‘ # COPYRIGHT L'ORDINATEUR INDIVIDUEL & L'AUTEUR 4 
40 CLEAR 658 : DIM F(288,1) , A$(17) : CLS : RANDON 

58 PRINTESS,"TROUVEZ LA BOMBE !'!!": 
PRINT@968, "VOULEZ-VOUS LES REGLES (O/N) ?*; 

68 AS=INKEYS : IF A$="" THEN 68 

78 IF A$="N" THEN CLS : 60T0 428 ELSE IF A$()*0" THEN 68 
88 CLS : PRINTRIB,'TRQUVEZ LA BOMBE !''! 


98 PRINTR128," VOUS ETES LE DIRECTEUR DU PLUS GRAND HO 

TEL DU MONDE, QUI VA" 

108 PRINT"ETRE INAUGURE À MIDI." 

118 PRINT® CET HOTEL COMPORTE UN MILLION DE CHAMBRES. 
IL Y À 188 ETAGES"; 

128 PRINT'ET À CHAQUE ETAGE, 58 COULOIRS DISPOSES EN ETOI 

LE, DANS CHAQUE" 

138 PRINT*COULOIR, IL Y À 288 CHAMBRES (188 CHAMBRES DE C 
HAQUE COTE) ," 
148 PRINT" 
U'UNE BOMBE" 
158 PRINT'ATOMIQUE VA EXPLOSER À 12H88 PRECISE DANS UNE D 
ES CHAMBRES, * 

168 PRINT : PRINT" 
VOUS NE VOULEZ PAS" 
178 PRINT"PREVENIR LA POLICE, CE QUI NUIRAIT À LA REPUTAT 
ION DE L'HOTEL." 

188 PRINT" UN MALHEUR N'ARRIVE JAMAIS SEUL: DEUX ASCEN 
SEURS SEULEMENT" 


UN COUP DE TELEPHONE ANONYME VOUS ANNONCE Q 


MALHEUREUSEMENT, VOUS ETES SEUL, ET 
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PANIQUE À L'HOTEL 


198 PRINT*FONCTIONNENT, L'UN POUR MONTER, L'AUTRE POUR DE 
SCENDRE. 

288 PRINTA968,"APPUYEZ SUR UNE TOUCHE POUR CONTINUER"; 
218 IF INKEY$="" THEN 218 ELSE PRINTE128,CHR#(31); 

228 PRINT" HEUREUSEMENT, DANS VOTRE MALHEUR, VOUS AVEZ 
RETROUVE UN VIEUX"; 

238 PRINT*COMPTEUR GEIGER, QUI INDIQUERA PAR UN SIGNAL DE 
PLUS EN PLUS" 

248 PRINT"FORT LA PROXINITE DE LA BOMBE. LA VALEUR MAXIMA 
LE EST 188." : PRINT 

258 PRINT" QUELQUES CONSEILS ET RENSEIGNEMENTS :* 


268 PRINT"-#- CHAQUE COULOIR FAIT 288M DE LONG;" 
270 PRINT®-#- COURIR C'EST BIEN, MAIS GARE A L'INFARCTUS 


, 

288 PRINT"-#- POUR OBTENIR UNE MESURE DU SIGNAL, IL FAUT 
RESTER" 

298 PRINT" IMNOBILE PENDANT AU MOINS 385;" 

308 PRINT'-#- OUVRIR UNE PORTE PREND DE 15 À 128 SECONDE 
8s° 

318 PRINT*-#- IL EST 8:88:08 { PLUS QUE 4 HEURES POUR TR 

OUVER LA BOMBE );"; 

328 PRINT'-#- N'OUBLIEZ PAS VOTRE TROUSSEAU DE PASSES :” 
338 PRINTA968,"APPUYEZ SUR UNE TOUCHE POUR CONTINUER"; 
348 IF INKEY#="" THEN 348 ELSE PRINTE128,CHRS(31); 

358 PRINT" VOUS AVEZ A VOTRE DISPOSITION UNE VINGTAINE 
DE COMMANDES* 

368 PRINT'QUI SONT CONSTAMMENT AFFICHEES SUR L'ECRAN. POU 

R EFFECTUER UN* 

370 PRINT*ORDRE IL SUFFIT D'APPUYER SUR LA LETTRE SITUEE 

À GAUCHE DE LA" 

388 PRINT*COMMANDE. POUR CHOISIR L'ETAGE, LE COULOIR OU L 

E NUMERO DE PORTE"; 

398 PRINT" IL FAUT TAPER LE NUMERO, PUIS (ENTER). " 

408 PRINTE968,"APPUYEZ SUR UNE TOUCHE POUR COMMENCER. *; 

418 IF INKEYS="" THEN 418 ELSE PRINTR128,CHRS(31); 

428 PRINT" VOUS POUVEZ CHOISIR VOUS-MEME LE DEGRE DE DI 

FFICULTE" 

438 PRINT"OU JEU. LA DIFFICULTE PROVIENT DU FAIT QUE VOTR 

E COMPTEUR* 

448 PRINT'GEIGER N'EST PAS PARFAITEMENT PRECIS (VIEUX MOD 

ELE..,), MOINS" 

458 PRINT*LE COMPTEUR SERA PRECIS, ET PLUS LE JEU SERA D! 

FFICILE, * 

468 PRINT" CHOISISSEZ LA PRECISION DE VOTRE COMPTEUR GE 
I6ER" 

478 PRINT" ( 8 : COMPTEUR TRES PRECIS, 18 : LA MESURE N'ES 

T GARANTIE QU'A" 

488 PRINT"182 PRES )" 

498 PRINT'CHDISISSEZ LA PRECISION (ENTRE 8 ET 18) *; 

308 INPUT PR : IF PRÇ@ OR PR)18 OR PRÇDINT(PR) THEN CLS : 
60TO 428 

518 CLS : H=8 : M=@ : S=8 : T=8 : V=1 : E=1 : UI=RND(1808) 
: U2=RND(188) : PO=1 : C=1 : BE=RND(18@) : BC=RND(58) : 

BR=RND(288) : P=,12566 

528 FOR 1=8 TO 17 : READ A$(1) : NEXT 1 
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538 PRINT@64,CHRS (38); : GOSUB 1788 

548 FOR 1=8 TO 8 : PRINTR128+1#64,A$(1); : PRINT@L62+1#64 
1A$(I49); : NEXT I 

558 PRINT@28, "QUE FAITES-VOUS ? 

$(30); : 6OSUB 1590 : G6OSUB 1858 
568 PRINTE64,* 2222) "iASID-1)5" <<" "3 CHRS(S 
8); 

576 FOR 1=8 T0 288 : NEXT ] 

588 ON D 60SUB 610,650,670,710,730,788,798,880,810,880,92 
8,970,1008,1850,1878,1178,1208,1228 

598 IF UI=99 THEN 1238 ELSE 538 

688 REM==== A- J'APPELLE L'ASCENSEUR QUI MONTE 

618 IF POX)1 THEN PRINTE968, "VOUS N'ETES PAS PRES DES ASC 
ENSEURS."; : T=1+18 : RETURN 

628 H1=1 : Q=ABS(E-U1) : U1=E 

630 IF Q=1 THEN TP=8 ELSE IF Q=2 THEN TP=14 ELSE TP=6+440 
648 PRINT@968,"L'ASCENSEUR ARRIVE AU BOUT DE"; TP; "SECONDE 
5." : T=T+41P : RETURN 

658 IF PO (> 1 THEN 618 

668 H1=-1 : Q=ABS(E-U2) : U2=E : G0TO638 

678 IF H1=8 THEN PRINT968,"IL N'Y A PAS D'ASCENSEUR !*; 

: RETURN 

688 IF POC)1 THEN 618 

698 PO=4 : T2T+5 

708 PRINTE968, "OK"; : RETURN 

718 IF POX)4 THEN PRINT968, “VOUS N'ETES PAS DANS L'ASCEN 
SEUR !!!*3 : T2T+18 : RETURN 

728 H1=8 : T2T+5 : PO=1 : 60T0 788 


ETAGE: ";E;CHR 


730 IF PO=1 THEN PRINTR960, "VOUS Y ETES DEJA !!"; : T2T+1 
8 : RETURN 

748 IF PO=4 THEN 718 

758 TP=(R+18)#,6#V : C=8 

768 IF VC)1 THEN TC=TC+TP/V : IF TC)T/5 AND T)1888 THEN 6 
OSUB 1388 

TTO TP=(R#18)#,68#V : T=T+TP : PRINTE968, "VOUS METTEZ"; TP; 


"SECONDES"; : PO=1 

780 V=1 : 60TO 788 

798 V=2/3 : 6010708 

808 V=,5 : 6070708 

818 IF POX)4 THEN PRINTR968, "VOUS N'ETES PAS DANS L'ASCEN 

SEUR !11°3 : T=7+18 : RETURN 

828 PRINT@899,"QUEL ETAGE ?";CHR$(38); : GOSUB 1510 

838 1F Q(1 OR Q)188 THEN 828 

848 IF (Q-E)#H1C8 THEN PRINTR968, "CET ASCENSEUR NE VA PAS 
DANS LA DIRECTION QUE VOUS DESIREZ."; : T=1+1@ : RETURN 

858 1F ABS(E-Q)<2 THEN TP=8 ELSE IF ABS(E-Q)(3 THEN TP=14 
ELSE TP=ABS(E-Q)#4+6 

868 IF H18 THEN U1=Q ELSE U2=Q 

878 PRINT968, "VOUS METTEZ"; TP; "SECONDES"; : T2T+41P : E=Q 
t RETURN 

888 IF PO{)1 THEN PRINT@968, "POUR CHOISIR UN COULOIR, IL 

FAUT ETRE PRES DES ASCENSEURS."; : RETURN 

898 PRINTE896,"QUEL COULOIR ?";CHR$(38); : GOSUB 1518 

908 IF QC1 OR 058 THEN 898 

918 C=Q : T=T415 : Rai : PO=2 : RETURN 


RETURN 





928 IF POC)2 AND PO)3 THEN PRINT@968, "POUR CHOISIR UNE P 
ORTE, IL FAUT ETRE DANS LE COULOIR."; : RETURN 
938 PRINT@896, "QUELLE PORTE ?";CHR$# (38); : GOSUB 1510 
948 1F QI OR 0288 THEN 938 
958 PO=2 : TP=(ABS(Q-R)+1@)#.680 : IF VC)1 THEN TC=TC+TP/ 
V + IF TC)T/5 AND T)1888 THEN GOSUB 1388 
968 TP=(ABS(Q-R)+18)#,68V : R=Q : PRINTE968, "VOUS ARRIVEZ 
DEVANT LA PORTE EN"; TP; "SECONDES. "; : T=T+TP : RETURN 
970 IF PO=3 THEN PRINT'VOUS ETES DEJA DANS LA CHAMBRE !!! 
*; 2: T=1+18 : RETURN 
980 IF PO()2 THEN PRINT968, "VOUS N'ETES PAS DEVANT UNE P 
ORTE."; : T=T+18 : RETURN 
998 TP=RND (RND(105))+15 : PRINTR988, "VOUS METTEZ"; TP; "SEC 
ONDES POUR OUVRIR LA PORTE. "; : T=T+TP : PO=3 : RETURN 
1808 IF PO=1 OR PO=4 THEN PRINTE968, "VOUS N'ETES PAS PRES 
D'UNE CHAMBRE"; : RETURN 

1818 X=COS(P#C)4R : Y=SIN(P#C)#R : BX=COS(P#BC)#BR :. BY=S 
IN(P#BC)#BR 

1028 D1=SOR((BX-K)C2+(BY-Y)[2)+1 

1930 D1=(D1L-,1)#(,950 (ABS(E-BE) ) }+(10008+PR+188-RND (PR42 
88))/108 

1848 PRINTE960, "VOUS LISEZ: ";D1; : FOR I = @ TO 688 : NEX 
T 1: T2T430 : RETURN 

1050 IF F>199 THEN PRINT8968, "VOUS N'AVEZ PLUS DE PLACE P 
OUR NOTER CETTE VALEUR"; : RETURN 

1869 F(F,@)=(E-1)#18800+(C-1)#2004+R-1 : F(F,1)=D1 : F=F+#1 
: T=7+15 : 6010788 

1070 FOR 1=@ TO F-1 STEP 15 : CLS 

1080 FOR J=@ TO 14 

1098 IF F(1+3,1)=@ THEN J=28 : GOTO 1148 
1180 Q1=INT(F(1+J,8)/1E4) 

1118 Q2=INT((F(1+J,8)-Q1+18800) /280) 
1128 QS=INT(F(1+J,8)-1E4+01-208402) 
1138 PRINTUSING"ETAGE : #44 COULOIR : #4 
NU ---) MH" :01+1,02+1,03#1,F(1+3,1) 
1148 NEXT J 

1158 IF INKEVS="" THEN T27+,05 : 6070 11508 
1168 NEXT I : CLS : RETURN 

1178 IF POC)3 THEN PRINT@968, "VOUS N'ETES PAS DANS UNE CH 
AMBRE !!!*; : RETURN 

1188 IF E=BE AND C=BC AND R=BR THEN PRINT@968, “VOUS AVEZ 
TROUVE LA BOMBE !*; : UI=1 : T=T+RND(300) : RETURN 

1198 PRINTR96B,"RIEN À SIGNALER"; : T=T+308 : RETURN 

1208 IF UI=1 AND BC=C AND BR=R AND BE=E THEN PRINT8968,"B 
RAVO L'HOTEL EST SAUVE !!!1"; : UI=99 : 6070 1588 

1218 PRINTR968, "VOUS N'AVEZ PAS LA BOMBE !"; : T=T+18 : R 
ETURN 

1220 END 

1238 CLS:PRINT, "MONSIEUR LE DIRECTEUR, ":PRINT 

1248 PRINT, ,"VOTRE ACTE DE COURAGE M'A ETE" 

1258 PRINT'DECRIT PAR MES COLLABORATEURS. VOTRE COMPORTEM 
ENT HEROIQUE FACE" 

1268 PRINT"AU DANGER MERITERAIT MIEUX QUE CES QUELQUES LI 
BNES, ":PRINT 
1278 PRINT" 


CHAMBRE : 


MALHEUREUSEMENT, VOUS SAVEZ QUE TOUTE CETT 














CUS: 
E AFFAIRE DOIT* 


1288 PRINT'RESTER SECRETE POUR NE PAS EFFRAYER L'OPINION 
PUBLIQUE. *: PRINT 

1298 PRINT" C'EST POURQUOI JE SUIS AU REGRET DE VOUS À 
NNONCER QUE VOUS" 

1388 PRINT'NE RECEVREZ PAS DE MEDAILLE POUR CET ACTE DE B 
RAVOURE, * 

1318 PRINT:PRINT:PRINT: PRINT" 5 
IGNE: LE MINISTRE DE L'HOTELLERIE" 

1328 FOR 1=8 TO 18888 : NEXT I : CLS 

1338 PRINTR544,"ON RECOMMENCE (O/N) “; : INPUT Hé 

1348 IF H$="0" THEN RUN ELSE END 

1358 H$=INKEYS : IF H$<)*" THEN RETURN 

1360 Y=V+1 : IF Y)18 THEN T=T+1 : Y=0 : GOSUB 1780 

1378 60T0 1358 

1388 CO=C0+1 : ON CO 6070 1398,1410,1430,1458,1478,1490 
1390 PRINTR968,"ECONONISEZ VOTRE FORCE, IL N'Y A PAS LE F 
EU !°; 

1488 60701588 

1418 PRINT968, "VOUS AVEZ UN POING DE COTE. IL FAUT MARCH 
ER."; 

1428 V=1 : G60T0 1508 

1430 PRINT96B,"REPRENEZ VOTRE SOUFFLE PENDANT 3 MINUTES, 











































; 
1448 V=1 : T=T+180 : TC=TC+188 : 60701508 
1458 PRINTR988, "ATTENTION A L'ATTAQUE CARDIAQUE !!! UN QU 
ART D'HEURE DE REPOS. "; 
1468 T=T+988 : TC=TC+780 : V=1 : 60TO 1500 
1478 PRINTE968, "VOUS AVEZ UNE ATTAQUE CARDIAQUE, VOUS PER 
DEZ DEUX HEURES. "; 
1488 V=1 : T=1+7288 : TC=T : 60101508 
1498 PRINT&960 "VOTRE COEUR A LACHE... LA BOMBE VA EXPLOS 
ER..."; + T=15008 : GOTO 1508 
1508 FOR 1=8 TO 999 : NEXT L : PRINTA968,CHRS(31); : GOTO 
1788 
1518 Y=0 : 0-0 : AIS=CHR#(143) : 1=912 
1528 PRINTE,A1$;CHRS (30); 
1538 60SUB 1358 
1548 IF ASC(HS)=13 THEN RETURN 
1558 IF H$C"@" OR H#)"9" THEN 1538 
1568 PRINTEX,HS;A1$; : O=0#18+VAL (HS) 
1578 IF 0)288 THEN 1518 
1588 1=X+1 : 60TO 1530 
1598 PRINTR768,CHRS (31); "VOUS ETES *; : ON PO G0TO 1688,1 
618,1828,1638 
1688 PRINT'PRES DES ASCENSEURS, À L'ETAGE";E; : RETURN 
1618 PRINT"DANS LE COULOIR" ;C;", DEVANT LA PORTE";R; : RE 
TURN 
1628 PRINT"DANS LA CHAMBRE";R;"DU COULOIR" ;C; : RETURN 
1838 PRINT'DANS L'ASCENSEUR"; : RETURN 
1848 REM 
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EL 





PANIQUE A L'HOTEL 


1650 Y=9 

1660 GOSUB 1358 

1878 D=ASC (H$)-84 

1688 IF DC1 OR D)18 THEN 1668 

1898 RETURN 

1708 H=INTIT/3608) : M=INT((T-36084H)/60) : S=INT(T-H4360 
8-H60) 

1710 H=H+8 : IF H=12 THEN 1778 

1728 IF HÇ1@ THEN A$="04" ELSE A$="#4" 

1730 IF MC18 THEN A$=A$+":08" ELSE A$=A$+":48" 

1748 1F SC18 THEN A$=A#+":Q8" ELSE A$=A$+":48" 

1758 PRINT, ""; : PRINT USING A$;H,M,S; 

1768 RETURN 

1778 A4="" : CLS : PRINTES44,"BAOUM" : GOSUB 1850 

1788 PRINTE542,"B À O U M" : 60SUB1858 
1798 CLS : PRINT CHR$(23) 

1880 PRINTAS4G ,"BAOUN" : GOSUB 1858 
1818 PRINTES38,*B À O U M : GOSUB 1858 
1820 PRINTAS,A$; : PRINTÉA76 
BAOUM!!"; 

1830 FOR 1=8 T0 5088 : NENT 1 


*; : PRINT538," 





1848 CLS : G0T0 1338 
1850 FOR 1=1 T0 62 : A$=A$+CHRS(128#RND(76)) : NEXT I: R 
ETURN 

1868 DATA"A- j'APPELLE L'ASCENSEUR QUI C* 

1878 DATA'"B- J'APPELLE L'ASCENSEUR QUI \* 

1888 DATA"C- JE MONTE DANS L'ASCENSEUR" 

1898 DATA"D- JE SORS DE L'ASCENSEUR" 

1988 DATA'E- JE VAIS VERS L'ASCENSEUR" 

1918 DATA"F- JE MARCHE NORMALEMENT* 

1928 DATA"6- JE MARCHE VITE® 

193@ DATA'"H- JE COURS" 

1948 DATA"I- JE VAIS À L'ETAGE ...* 

1958 DATA"J- JE VAIS DANS LE COULOIR ..." 

1968 DATA"K- JE VAIS VERS LA PORTE ..." 

1978 DATA*L- J'OUVRE CETTE PORTE" 

1988 DATA"M- JE MESURE AVEC LE GEIGER* 

1998 DATA®N- JE NOTE LA VALEUR" 
2008 DATA"O- JE CONSULTE MES NOTES" 
2818 DATA"P- JE FOUILLE LA CHAMBRE" 
2028 DATA'Q- JE DESAMORCE LA BOMBE" 
2030 DATA'"R- JE STOPPE LE JEU" 


S. Quenson 
de la Hennerie 





Ce jeu est inspiré 
d’un jeu télévisé. 


Le but est de trouver 


PERSANES =" 
la définition, 
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la première lettre 
et le nombre de lettres. 


Top, c’est à vous ! 


bp: que vous cherchez, 
l'alphabet défile sur le coin 
droit de l'écran. Dès que vous 
avez trouvé, vous devez frapper 
le mot au clavier, ce qui arrête le 
défilement de l'alphabet. 

Si le mot donné est exact, VOUS 
pouvez continuer avec un mot 
dont la première lettre est celle 
de l'alphabet stoppé. Si le mot 
est inexact, le défilement de 
l'alphabet reprend. 

Chaque mot trouvé rapporte 10 
points. Le but du jeu est 
d'obtenir le score le plus élevé 
possible avant la fin de l'alpha- 
bet. D. Botton 

















18 RANDOX 
24 REM JEU DU DICO 

30 CLEARSOB® 

48 CLS:PRINT:PRINT:PRINT TAB(28)* JEU DU DICO" 

58 PRINT:PRINT'JE VOUS PRIE D'ATTENDRE QUELQUES INSTANTS 
60 CLEAR 5008 

78 DIN L3#(26) ,N2(24) ,M1$ (26,18) ,018(26,18) 

88 FOR I=1 TO 26:READ L3#(I)&NENT I 

98 DATA A,B,C,D,E,F,6,H,1,7,K,L,M,N,0,P,O,R,S,T,U,V,H,1,Y 
H 

! 

108 N1=26 :REM NOMBRE DE LETTRES 

118 FOR I=1 TO NI 

128 READ N2(I):REM NOMBRE DE MOTS DEFINIS POUR LA LETTRE 

CONSIDEREE 

138 FOR J=1 TO N2(1) 

148 READ M1$(1,9) 

158 READ D1$(1,9) 

188 NEXT J 

178 NEXT ! 

188 CLS:PRINT" VOULEZ-VOUS LA REGLE DU JEU (D/N) * 

198 RS=INKEYS: IF R$="" THEN 198 

208 1F R$="0" THEN GOSUB 570 

218 LS=1 

228 NP=8:REM NOMBRE DE POINTS 

238 REM CHOIX D'UN MOT A TROUVER 

248 Li#=L38(L5) 

258 MS=RND (NZ (LS) ) 

268 X#=N1$(L5,NS):DF#=D1$(L5,M5) :NL=LEN(H#) 

278 CLS:PRINT" LETTRE : "jLi$ 

288 PRINT NL3" LETTRES * 

298 PRINT:PRINT" DEFINITION : “:PRINT DF$ 

38 PRINT: PRINT" REPONSE : * 

318 T=108:REN TEMPORISATION 

320 Y$="" 

338 REN RECHERCHE SI LE JOUEUR FOURNIT UNE REPONSE 

48 LS=L5+1 

358 1F L5)28 THEN PRINTA384," VOUS AVEZ PERDU ":PRINT" LA 
REPONSE EST : ";X#:60T0 568 

368 PRINTSS,L3$ (LS) ; 

370 1721741 

388 IF T7)T THEN T7=8:6070 348 

398 R$=INKEYS 

48 IF R$="" THEN 378 

418 YS=Ys4RS 

428 PRINTE44B,CHRS (31) ; :PRINTE448, 4 

438 RSS INKEYS: IF R$="" THEN 438 

A4 IF ASCIR#)=13 THEN 478 

AS8 IF ASC(R#)=8 THEN 1F YS="" THEN 438 ELSE VS=LEFT#(YS, 
LEN(Y#)-1):60T0 428 6 

468 6070 418 

478 IF V#=18 PRINT * C'EST EXACT ":NP=NP+18:60T0 528 

488 PRINT" REPONSE FAUSSE * 

498 FOR I=1 TO SOB:NENT 1! 

508 PRINTE448,CHR#(31) 
















































ne À 


518 6070 328 

328 PRINT:PRINT* VOULEZ-VOUS CONTINUER *; 

538 RS=INKEYS:1F R$="" THEN 538 

340 IF R$="0" THEN 248 

398 PRINT:PRINT" VOUS AVEZ ":NP;" POINTS À LA LETTRE “;L3 

$(L5) 

368 END 

578 CLS:PRINT" CE JEU EST INSPIRE D'UN JEU TELEVISE.* 

588 PRINT® LE BUT DU JEU EST DE TROUVER UN MOT. 

POUR CELA L'ORDINATEUR DONNE LA PREMIERE LETTRE, LE NOMEBR 

E DE LETTRES ET LA DEFINITION DU MOT À TROUVER." 

598 PRINT"  PENDANT QUE VOUS CHERCHEZ, L'ALPHABET DEFILE 
SUR UN COIN DE L'ECRAN. DES QUE VOUS AVEZ TROUVE, VOUS 
DEVEZ ENTRER LE MOT AU CLAVIER, CE QUI STOPPE LE DEFILE 

MENT DE L'ALPHABET" 

688 PRINT" APPUYEZ SUR UNE TOUCHE POUR CONTINUER * 

618 R$=INKEYS:IF R$="" THEN 618 

628 CLS 

638 PRINT® SI LE MOT DONNE EST EXACT, VOUS POUVEZ CONTIN 

UER AVEC UN MOT DONT LA PREMIERE LETTRE EST CELLE INDIQU 

EE PAR L'ALPHABET STOPPE, * 

648 PRINT" CHAQUE MOT TROUVE RAPPORTE 10 POINTS. LE BUT 

DU JEU EST D'OBTENIR LE MAXIMUM DE POINTS AVANT LA FIN DE 
L'ALPHABET, * 

658 PRINT" 

TOUTES LES REPONSES DEVRONT ETRE FOURNIES EN MAJUSCULES, 





668 PRINT" 
APPUYEZ SUR UNE TOUCHE POUR CONTINUER * 
678 R$=INKEYS:IF R$="" THEN 678 
688 RETURN 
698 DATA 5 
780 DATA ACHAT,ACQUISITION À PRIX D'ARGENT 
718 DATA ALLIANCE ,UNION PAR MARIAGE 
728 DATA ANNEAU,PETIT CERCLE D'OR QUE L'ON MET AUTOUR DU 
DOI6T 
738 DATA ARETE, OS DE CERTAINS POISSONS 
748 DATA AMUSER,DIVERTIR AGREABLEMENT 
758 DATA 5 
768 DATA BABUE, ANNEAU QUE L'ON MET AU DOIGT 
778 DATA BAL,REUNION LOCALE OU L'ON DANSE 
788 DATA BELOTE,JEU DE CARTES 
798 DATA BOURREAU, HOMME CRUEL 
888 DATA BALEINE,MAMMIFERE MARIN LE PLUS GRAND DES ANIMAU 
X ACTUELS 
818 DATA 5 
828 DATA CANCRE, ECOLIER PARESSEUX 
838 DATA CAHIER,ASSEMBLAGE DE FEUILLES DE PAPIER REUNIES 
ENSEMBLE 
848 DATA CONDUCTEUR, TOUT CORPS SUSCEPTIBLE DE TRANSMETTR 
E L'ELECTRICITE 
858 DATA CROCHU, RECOURBE EN POINTE 
868 DATA CHATON, JEUNE CHAT 
878 DATA 5 
888 DATA DESPOTE, PERSONNE QUI IMPOSE SA VOLONTE 
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LETTRES PERSANES 


898 DATA DIVORCE ,RUPTURE LEGALE DU MARIAGE CIVIL 

988 DATA DIODE, TUBE À DEUX ELECTRODES UTILISE COMME REDR 
ESSEUR DE COURANT 

918 DATA DIPHTERIE, MALADIE CONTAGIEUSE PROVOQUEE PAR LE 
BACILLE DE KLEBS-LOFFLER 

928 DATA DOYEN, LE PLUS ANCIEN D'AGE 

938 DATA 5 

948 DATA EFFRENE, DEMESURE - EXCESSIF 

958 DATA ECLORE, SORTIR DE L'OEUF 

968 DATA EPINETTE,PETIT CLAVECIN 

978 DATA ERGOTER,CHICANER 

988 DATA ELIMER,USER 

998 DATA 5 

1888 DATA FORET,GRANDE ETENDUE DE TERRAIN PLANTEE D'ARBRE 
S 

1818 DATA FLORE,ENSEMBLE DES PLANTES QUI CROISSENT DANS L 
À REGION 

1828 DATA FRUGAL,QUI SE NOURRIT DE PEU 

1838 DATA FUSILLADE ,ECHANGE DE COUPS DE FEU 

1848 DATA FOU,PIECE DU JEU D'ECHECS 

1858 DATA 5 

1868 DATA GLAPIR,CRIER D'UNE VOIX AIGRE 

1878 DATA GOUROU,MAITRE SPIRITUEL 

1888 DATA GRAINAGE, PRODUCTION D'OEUFS DE VERS À SOIE 
1898 DATA GRAVITE,ATTRACTION TERRESTRE EXERCEE SUR LES CO 
RPS 

1188 DATA GUTTURAL, QUI APPARTIENT AU GOSIER 

1118 DATA 5 

1128 DATA HALEINE,AIR QUI SORT DES POUMONS PENDANT L'EXPI 
RATION 

1138 DATA HARNAIS,ENSEMBLE DES PIECES QUI SERVENT À EQUIP 
ER UN CHEVAL 

1148 DATA HEDONISME ,DOCTRINE MORALE QUI FAIT DU PLAISIR L 
E BUT DE LA VIE 

1158 DATA HUMANITE, L'ENSEMBLE DES HOMMES 

1168 DATA HYPOTHETIQUE ,FONDE SUR UNE HYPOTHESE 

1178 DATA 5 

1188 DATA ILLEGAL, CONTRAIRE À LA LOI 

1198 DATA IMPOSER, FAIRE SUBIR PAR CONTRAINTE 

1288 DATA INDEX,AIGUILLE D'UN CADRAN 

1218 DATA INONDATION,DEBORDEMENT DES EAUX 

1228 DATA ISLAN,RELIGION ET CIVILISATION DES MUSULMANS 
1238 DATA 5 

1248 DATA JAMBON, CUISSE OU EPAULE SALEE DU PORC 

1258 DATA JOYAU, OBJET DE GRAND PRIX 

1268 DATA JUVENILE QUI APPARTIENT À LA JEUNESSE 

1278 DATA JUSTICE, VERTU MORALE QUI FAIT RENDRE A CHACUN C 
E QUI LUI EST DU 

1288 DATA JURE,QUI A PRETE SERMENT 

1298 DATA 5 

1388 DATA KAOLIN,ARGILE BLANCHE QUI ENTRE DANS LA COMPOSI 
TION DE LA PORCELAINE 

1918 DATA KEPI,COIFFURE MILITAIRE LEGERE ET MUNIE D'UNE V 
ISIERE 

1328 DATA KLEPTOMANIE, MANIE QUI POUSSE CERTAINES PERSONN 



















































ES A VOLER 
1338 DATA KRYPTON,UN DES GAZ RARES QUI EXISTENT DANS L'AT 
HOSPHERE 

1348 DATA KNOUT,SUPPLICE DU FOUET EN RUSSIE 

1358 DATA 5 

1368 DATA LACRYMAL,RELATIF AUX LARMES 

1378 DATA LAPIDAIRE, PETITE MEULE RAPIDE UTILISEE POUR POL 
IR 

1388 DATA LOCOMOTION,ACTION DE SE DEPLACER D'UN POINT À U 
N AUTRE 

1398 DATA LOPIN,PETIT MORCEAU DE TERRAIN 

1488 DATA LYRE, INSTRUMENT DE MUSIQUE A CORDES PINCEES 
1418 DATA 5 

1428 DATA MACHER, BROYER AVEC LES DENTS 

1438 DATA MADONE, IMAGE DE LA VIERGE 

144@ DATA MARCHAND PERSONNE QUI FAIT PROFESSION DE VENDRE 
1458 DATA MODESTE, QUI PARLE DE SOI-MEME SANS ORGUEIL 


1468 DATA MOUCHARD, APPAREIL DE CONTROLE ET DE SURVEILLANC 
E 

1478 DATA 5 

1488 DATA NABAB,HOMME RICHE QUI FAIT ETALAGE DE SON OPULE 
NCE 

1498 DATA NEGRILLON,PETIT NEGRE 

1580 DATA NOEUD,ENLACEMENT SERRE FAIT AVEC UN FIL 

1518 DATA NUCLEAIRE, RELATIF AU NOYAU 

1528 DATA NUPTIAL, QUI CONCERNE LA CEREMONIE DES NOCES 
1538 DATA 5 

1548 DATA OBEISSANT, SOUMIS 

1558 DATA OMNICOLORE QUI A TOUTES SORTES DE COULEURS 

1968 DATA ORAL,QUI APPARTIENT 4 LA BOUCHE 

1578 DATA OURAGAN. TFMPFTF UTNI FATF 

1588 DATA OXYGENE, METALLOIDE FORMANT LA PARTIE RESPIRABL 
E DE L'AIR 

1398 DATA 5 

1688 DATA PACIFIQUE, QUI AIME LA PAIX 

1618 DATA PALINDROME, MOT QU'ON PEUT LIRE DANS LES DEUX S 
ENS 

1628 DATA PARADOXE, OPINION CONTRAIRE A L'OPINION COMMUNE 
1638 DATA PARTIR, SE METTRE EN CHEMIN 

1648 DATA POLKA,DANSE À DEUX TEMPS IMPORTEE DE POLOGNE VE 
RS 1830 

1658 DATA 5 

1668 DATA QUADRILATERE, QUI A QUATRE COTES 

1678 DATA QUESTION,DEMANDE FAITE POUR ECLAIRER UNE CHOSE 
1688 DATA QUOTIENT,RESULTAT DE LA DIVISION 

1698 DATA QUITTE,LIBERE D'UNE DETTE PECUNIAIRE 

1788 DATA QUIET, TRANQUILLE 

1718 DATA 5 

1728 DATA RABBIN, DOCTEUR DE LA LOI JUIVE 

1730 DATA RECEVABLE, QUI PEUT ETRE ADNIS 

1748 DATA REFLETER,RENVOYER LA LUMIERE 
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1758 DATA RIXE,QUERELLE VIOLENTE 
1768 DATA RURAL,QUI APPARTIENT À LA CAMPAGNE 

1770 DATA 5 

1788 DATA SABOT, CHAUSSURE DE BOIS 

1790 DATA SANSKRIT,LANGUE SACREE ET LITTERAIRE DE L'INDE 
1888 DATA SEDITION,EMEUTE POPULAIRE 

1818 DATA STABLE ,DANS UNE SITUATION FERME ET SOLIDE 

1828 DATA SYNDICAT, GROUPEMENT FORME POUR LA DEFENSE D'INT 
ERETS COMAUNS 

1838 DATA 5 

1848 DATA TASSER,REDUIRE DE VOLUME PAR PRESSION 

1850 DATA TAXIDERMIE,ART D'EMPAILLER LES ANIMAUX VERTEBRE 
5 

1868 DATA TETANOS,CONTRACTION PROLONGEE D'UN MUSCLE 

1878 DATA TINTER,RESONNER LENTEMENT PAR COUPS ESPACES 
1888 DATA TOXIQUE ,QUI À LA PROPRIETE D'EMPOISONNER 

1898 DATA 5 

1900 DATA UBIQUITE, FACULTE D'ETRE PRESENT À PLUSIEURS EN 
DROITS À LA FOIS 

1918 DATA ULTRA,QUI PROFESSE DES OPINIONS EXTREMES 

1928 DATA URBAIN, DE LA VILLE 

1938 DATA UTILE ,QUI REND SERVICE 

1948 DATA USAGE,QUI À DEJA SERVI 

1958 DATA 5 

1968 DATA VACARME, BRUIT TUMULTUEUX 

1978 DATA VAGISSEMENT,CRI DES NOUVEAU-NES 


1988 DATA VAINQUEUR, CELUI QUI REMPORTE UNE VICTOIRE DANS 
UN COMBAT 


1998 DATA VARLOPE GRAND RABOT 

2088 DATA VETEMENT, TOUT CE QUI SERT A COUVRIR LE CORPS 
2818 DATA 5 

2028 DATA NAGAGE,LINON DE RIVIERE EMPLOYE COMME ENGRAIS 
2038 DATA NAPITI,GRAND CERF D'AMERIQUE DU NORD 

2848 DATA NHIG, EN ANGLETERRE MEMBRE DU PARTI LIBERAL 
2058 DATA WHISKY,EAU-DE-VIE DE GRAIN 

2868 DATA WHIST,JEU DE CARTES 

2878 DATA 5 

2088 DATA JENON,UN DES GAZ RARES DE L'ATMOSPHERE 

2098 DATA XENOPHILE,QUI AIME LES ETRANBERS 

2188 DATA XENOPHOBE QUI DETESTE LES ETRANGERS 

2118 DATA XERES,VIN D'ANDALOUSIE 

2128 DATA XIMENIA,PLANTE TROPICALE À FRUITS COMESTIBLES 
2130 DATA 5 

2140 DATA YACHT,NAVIRE DE PLAISANCE 


2158 DATA YPERITE,LIQUIDE HUILEUX UTILISE COMME GAZ DE CO 
HBAT 


2168 DATA YPREAU,PEUPLIER BLANC 

2178 DATA YEN,UNITE MONETAIRE DU JAPON 

2188 DATA YATAGAN,SABRE INCURVE EN DEUX SENS OPPOSES 
2198 DATA 5 

2208 DATA ZEBU,ESPECE DE BOEUF DOMESTIQUE EN ASIE” 
2218 DATA ZENITH,DEGRE LE PLUS ELEVE 

2220 DATA ZINZIN,UN PEU FOU 

2238 DATA ZOMBIE PERSONNE SANS VOLONTE 

2248 DATA ZYGOTE,CELLULE RESULTANT DE LA FECONDATION EE 


LE DESSERT 
DE. 





TARTARES 


« Rendre l'âme n'aiguise pas la soif ». 
dit le docteur Copic. 

« Sauf si l’on vient de manger 

de la morue », rétorqua J. Napola 

en palpant le cadavre. 

« En tout cas le corps a pu être 

traîné jusqu'ici » insinua Norton. 


























‘Atlantis, astronef battant 

double pavillon terrien, est 
en croisière dans le deuxième 
décan ; le vaisseau compte huit 
hommes d'équipage placés 
sous la férule du commodore 
Norton. Huit ? non ils ne sont 
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LE DESSERT DES TARTARES 


plus que sept : le lieutenant Hari 
Gamberra a été retrouvé mor, 
déchiqueté par une arme très 
puissante. Si l'on veut bien 
croire les deux médecins du 
bord, la mort serait survenue 
entre une heure et huit heures 
du matin, et le corps aurait été 
déplacé dans une autre pièce. 
Afin de résoudre cette énigme, 
l'administration du commerce 
intergalactique a engagé huit 
inspecteurs. Le premier à élu- 
cider le mystère recevra en pri- 













































18 RANDON 
28 DIN B$(9),C8(9),D#(9),6(8) 


DUEZ1","S0L J.NAPOLA" 


OTURE" 
ER. 
PILOTAE" 

98 FOR I=1 TO B:READ BSCI):NENT 1 
108 FOR I=1 TO G2READ C#UI)2NENT ! 
118 FOR I=1 TO SaREAD DSUI):NENT ! 
RND (8) 

130 

23H82 IF LEFTSUHS,L)="0" 6OSUB 518 
168 NEXT I21F KeA GOSUB 468:6070 580 


188 PRINT "ENQUETEUR "31 
198 PRINT “RENSEIGNEMENTS DEMANDES" 


"#D$(9) 


B#(9)2B$(J) LET Bs1 
228 NET J:1F B=8 THEN 218 


LET Csi 
248 NEXT J:1F C=0 THEN 238 


54 
268 N=0:0=0:P=0:0=0:N=01K=0 


288 ON L 6070 298,318,338,358 





38 DATA “CON H.NORTON" , "CAP C.NOLF*,"SER H.B.NOP", "SOL P, 


40 DATA "SOL R.FRANZ", "DOC E.ENREA", "DOC C.COPIC" 
S8 DATA "FULGURANT" , "PARALISATEUR" , "INSINERATEUR", "ELECTR 


68 DATA "COSNO-SABRE" , "PISTOLET", *PERFORATEUR" , "FUSIL LAS 
78 DATA "DES MACHINES", "DES MESSES","D'ARNE", "RADIO", "DE 


80 DATA "DE COMMANDE" , "DES RESERVES", *D'INFIRMERIE" 


128 B$(0)=B$ (RND(8) ):C$(8)=C$ (RND (8) ) :D$ (8) =D$ (RND(B)):E= 
138 X=8:INPUT "NOMBRE D'ENQUETEURS ";A:IF A1 OR A?8 THEN 
148 X=X+1:PRINT “TOUR :"3X2 INPUT "RENSEIGNEMENTS (0 OÙ N) 
158 K=@:FOR 121 TO A:IF 6(12<)8 LET K=K+1 


178 FOR 1=1 TO A:K=8:1F 6(11C8 NEXT [26070 148 


208 DeRND (8):D#(9)=D$(D):PRINT “VOUS ETES DANS LA SALLE 


218 B=@: INPUT "HOMME D'EQUIPAGE ?"3B#(9):FOR J=1 TO 8:1F 
238 C=8: INPUT "ARME ?"3C#(9)2FOR J=1 TO 811F C$(9)=C8(J) 
258 INPUT "HEURE (ENTRE 1 ET 8) ?"3F2lF F1 OR F)8 THEN 2 


278 RANDOM: L=RND (4) :M=N+0+P+Q: IF M=4 THEN 398 


me... l'arme du crime, une pièce 
à conviction de son choix et un 
jeu de Cluedo (offert par la 
compagnie). L'enquête sera 
menée en temps partagé auprès 
de l'ordinateur de bord de 
l'Atlantis qui vous souhaite la 
bienvenue. 

Comment identifier coupable, 
arme, lieu et heure du crime ? 
En procédant par élimination : il 
faut démasquer le seul membre 
de l'équipage ne possédant pas 
d'alibi, puis trouver l'arme et la 








































CUPEE":6070 408 


8:60T0 140 


148 


RETURN 


538 RETURN 


578 NEXT !1 


298 IF N=1 THEN 278 
300 N=1:1F B#(9)C)B#(8) PRINT'ON À VU LE *;B$(9):6070 488 
318 IF O=1 THEN 278 

328 O=1:1F C#(9)C)C$(8) PRINT'ON À LE *;C$(9):8070 488 
338 1F P=1 THEN 278 

348 P=i:1F D#(9)C)D#(8) PRINT'LA SALLE "5D$(9);" ETAIT OC 


350 1F Q=1 THEN 278 

368 Q=1:1F E=F THEN 278 

378 1F E)F PRINT'LA VICTIME VIVAIT ENCORE":6070 488 

388 IF ECF PRINT'LA VICTIME ETAIT MORTE":6070 488 

398 PRINT'AUCUN RENSEIGNEMENT" :K=1 

408 INPUT "ETES-VOUS DANS LA PIECE DU CRIME ET VENEZ-VOUS 
D'EN DECRIRE LES CIRCONSTANCES (0 OÙ N) ?*;H#1F LEFTSCH 
$,1)="N" THEN NEXT 1:60T0 148 

418 IF K=1 PRINT “VOUS AVEZ GAGNE":6(1)21:NEXT I:60SUB 36 


428 PRINT “VOUS AVEZ PERDU":6(1)=2:NEXT 1:60SUB 568: 8070 


438 ON Y 60TO 448,450,468 

AB FOR J=1 TO G:PRINT B#(J)4NEXT J:RETURN 

458 FOR J=1 TO B:PRINT C#(J):NEXT J:RETURN 

468 FOR J=1 TO A:PRINT "L'ENQUETEUR ";J 

478 1F G(J)=8 THEN PRINT "EST ENCORE DANS LE JEU':NENT Ji 


488 IF G(J)=2 PRINT "A PERDU":NEUT J:RETURN 

498 IF G(J)=1 PRINT "A GAGNE":MEXT J:RETURN 

500 PRINT "AU REVOIR" :END 

518 PRINT “VOULEZ-VOUS" 

528 INPUT "LA LISTE DES HOMMES (D OÙ N) ?"*;H#:1F LEFTS(H$ 
,1)="0" LET Y=1:60SUB 438 

538 INPUT "LA LISTE DE ARMES (0 OÙ N) ?";H8:1F LEFTS(H$,1 
)2"0" LET Y=2:60SUB 438 | 
548 INPUT "LA LISTE DES ENQUETEURS (0 OÙ N) ?";H8:1F LEFT 
$(H$,1)="0" LET Y=3:608UB 438 


568 FOR I1=1 TO A:1F 6(11)=@ THEN RETURN 


588 PRINT “AU REVOIR" 


pièce qui était vide à l'heure du 
crime. 

Les enquêteurs formulent à tour 
de rôle une hypothèse sur le 
nom du suspect, l'arme utilisée 
et l'heure fatale. L'ordinateur 
transmet la question à l'équi- 
page puis collecte les rensei- 
gnements éventuels. Lorsque 
vous pensez avoir formulé la 
bonne accusation, répondez 


« OUI » à la question : est-ce le 
crime ? Faites vite, car le crime 
ne paie pas. 







P. Prioux 









Vous devez traverser la ville 


de New York ; pour vous y aider, 

ce programme vous dote 

de super-pouvoirs 

qui vous permettront d'avancer, 

de reculer, et, surtout, d’escalader 


ei de sauter ; 


un mode d'emploi complet 
est présenté au début du jeu. 
À vous de surmonter 

les difficultés ! 


COURSE SUR LES TOITS 
DE NEW YORK 


CÉFEFFEEETENETTEEEEEEETEEIEIEETEELE LE TEEEELELLLL) 1}, 
20 LEL st 
30 LL COURSE SUR LES TOITS DE NEW-YORK QUE 
35 M #11 LEE] 
( LEE] Prograame realise par X LEE] 
LEE] et transforme par Fabrice DULUINS LEL] 
LEE] (c) les auteurs et l1’0.1. 11 
CFFFTHREEEEEEEEEE EEE EN EE EEE TEEEEELE ET I TTL LELLLLLE;) 








DIM A(119.0,3.0) 

GOSUB 750:RENM ... INTRODUCTION ... 

COLORT © 5 © O:COLORG 0 6 8 9:MODE &A:PRINT CHR$ (12) 

X=15.0:Y=131.0 

FILL 0,0 20,120 6:P=20.0 

FOR N=0.0 TO S9.0:A(N, 1.0) =P:AUN, 2.0) =P+#+RND (20.0) : AN, 3. 0) =RND (150. 0) 
FILL A(N,1.0),0 A(N,2.0),A(N,3.0) 6:P=P+5.0:NEXT N:P=20,0 

FOR N=60.0 TO 119.0:A(N,1.0)=P:A(N, 2.0) =P+RND (20.0) :A(N, 3.0) =RND(150.0) 
FILL A(N,1.0),0 A(N,2.0),A(N,3.0) 6:P=P+5,0:NEXT N 


FILL XMAX-15,0 XMAX,155 6:FILL XMAX-2,0 XMAX,YMAX 6 
CURSOR 0,2:PRINT “Teaps utilise:"; 
CURSOR 0,1:PRINT “A avancer S sauter & escalader R reculer" 


e programme est conçu à s IF AV=1.0 THEN GOSUB 290 
RENE A k 0 IF SA=1.,0 THEN GOSUB 440 
l'origine pour un DAI, néan- ES eu OS De 

moins, il peut être assez facile- G=GETC 
ment adapté pour d'autres OI, la Nes MR ar Ve OL 
seule difficulté que pourrait IF G=ASC("R") THEN RE=1.0 
causer cette adaptation se situe «4 PS D M THEN TINEX-TIMEZL+1:E%0,0 
dans la partie où sont utilisées les : CURSOR 14,2:PRINT TIME; : RETURN 


commandes graphiques du DA. ! Q=0,0:W=0.0:GOSUB 330:0=28.9:W=9, 0 
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COURSE SUR LES TOITS DE NEW YORK 


Voici quelques explications au 
sujet de ces commandes propres 
au système d'origine. En mode 
graphique, le point d'origine (0,0) 
est situé en bas à gauche de 
l'écran, en mode 6A on dispose 
de 336 x 256 points. 

COLORT et COLORG permet- 
tent d'initialiser les couleurs en 
mode texte et en mode graphi- 
que. 

FILL x1,y1 x2,y2 couleur dessine 
un rectangle dont les coordon- 
nées (x1,y1) (x2,y2) sont celles 
des coins opposés. 

DRAW x1,y1 x2,y2 couleur trace 
une droite entre (x1,y1) & (x2,y2). 
DOT x1,y1 couleur dessine un 
point de coordonnées (x1,y1). 
SCRN (x,y) donne la couleur au 
point de coordonnées (x,y). 

Le programme lui-même se com- 
pose de trois parties : 

— des lignes 750 à 1020, l'intro- 
duction avec la présentation du 
programme ; 

— des lignes 100 à 170, le 
dessin de la ville ; 

— des lignes 180 à 740, le jeu 
proprement dit. 

Et maintenant après cette brève 
description, tous à vos claviers. 
Bonne chance. 


















































































IF SCRN(X-4,Y-11)=0 AND SCRN(X+1,Y-11)=0 THEN 390:G0SUB 280 
IF SCRN(X+5,Y-10)=6 THEN DF=1.0:GOSUB 330: DF=0. O0: AV=0, Q: RETURN 
320 X=X+2.0 


330 DRAW X+1,Y-7 X+1,Y-10 O:IF Q=8 THEN TIMEZ=TIMEZ+1:CURSOR 14,2: PRINT 
TIMEZ; 

340 FILL X-1,Y-1 X+1,Y+1 @:DOT X,Y-2 Q:FILL X-1,Y-6 X+1,Y-3 Q 

350 DRAW X-2,Y-3 X-3,Y-3 M:DOT X-3,Y-4 M:DRAW X+2,Y-4 X+3,Y-4 Q 

360 DRAN X-1,Y-7 X-1,Y-10 W:DOT X+1,Y-7 Q:DRAW X+2,Y-7 X+2,Y-9 Q 

370 IF DF=1 THEN DRAWN X+2,Y-7 X+2,Y-9 O:DRAW X+1,Y-7 X+1,Y-10 8 

380 RETURN 

390 G=0.0:W=0.0:GOSUB 330:0=8.0:W=9.0 

400 IF SCRN(X+1,Y-10)=6 THEN GOSUB 330:G0T0 190 





410 IF SCRN(X-1,Y-11)=6 THEN GOSUB 330:60T0 190 

420 Y=Y-1.0 

430 GOSUB 330:G6G0T0 390 

440 SA=0.0:IF AV=1.0 THEN 510 

450 1=2.0:YI=Y 

460 Q=0.0:W=0.0:GOSUB 330:0=8. 0: W#=9.0 

470 IF SCRN{X+3,Y-3)=0 THEN X=X+1.0 

4860 Y=Y+1:1F Y=Y1+12.0 THEN Z=-1 , 

490 IF SCRN(X-1,Y-12)=6 OR SCRN(X+1,Y-11)=6 OR SCRN(X+3,Y-S)=6 THEN GOSUB 
330:RE TURN 

500 6OSUB 330:60T0 460 

510 1=2.0:YI=Y 


Q=0.0:N=0.0:GO0SUB 330:0=8.0:W=7.0 


530 Y=Y+Z:X=X4+2.0:1F Y=YI+14.,0 THEN 2=-7 

540 IF SCRNIX-1,Y-12)=6 OR SCRN(X+1,Y-11)=6 OR SCRN(X+3,Y-5)<6 THEN GOSUB 
| 330: RETURN ! 

550 IF SCRN(X+4,Y-4)=8 THEN AV=0.0:G60T0 440 

560 GOSUB 330:G0T0 520 

570 IF SCRNIX-5,Y-10)=6 THEN RE=0.0:RE TURN 

580 Q=0.0:W=0.0:G0SUB 330: 0=8. 0: be. 0 

599 X=X-1.021F SCRN(X+#+3,Y-11)=0 THEN 390 

40 GOSUB 330:RE=0.0:RETURN , 

610 IF X<=XMAX-10.0 THEN RETURN 

620 PRINT CHR$ (12) :U=0,0 

6:60 CURSOR O,3:PRINT “Temps utilise pour ce parcours: ";TIMEX 

640 PRINT "Votre score n’est pas brillant !‘!!* 

650 CURSOR U,1:INPUT “Desirez-voys ameliorer vatre score (peut-etre) “;QUES$ 
660 IF QUES="N" THEN MODE O:PHINT “Dommage":PRINT CHR$(12) 

870 PRINT :PRINT :PRINT." Au revoir et à bientot "“:END 

6580 1F QUES<>"0" THEN CURSOR 0,2:PRINT "O ou N:"“:U=7.0:G0T0 650 
690 U=0.0:CURSOR U, 1: INPUT “Voulez-vous le meme parcours “QUES 
700 IF QUES="N" GOTO 50 

710 1F QUES<>"D" THEN CURSOR 0,1:PRINT *O ou N:":U=7.0:G0T0 690 
720 MODE 464: COLORG O0 6 8 9:PRINT CHR#(12) 

730 FOR N=0.0 TO 119.0:FILL A(N,1.0),0 A(N,2.0),A(N,3.0) 6:NEXT N 


FILL 0,0 20,120 6:X=15.0:Y=131.0:TIMEZ2=0:G0T0 170 


REM #3%# INTRODUCTION #33 
780 PRINT CHR$(12):MODE © 


770 FOR Y=1.0 TO 5.0:PRINT :NEXT 

780 PRINT TITI III IIIIIIIII LITIIIII I /L)/2)))!)L;);;;;};]);,),,,,,) 

790 PRINT “##44 À ... 

800 PRINT “###4 BIENVENUE À NEW-YORK 4." 

810 PRINT “#### RESSSSS22E2SENSSSS== LLLL Ds 

820 PRINT ETITIITIIIIIIIIIIIIILI I LILI III) 7)ll});;);,;L,L) LL... 

830 GOSUB 990 

840 PRINT CHRS(12) 

850 INPUT “ Desirez-vous les instructions “;QUES 

860 IF QUES="OUI" THEN 880:1F QUE$#="NON" THEN 870 

885 PRINT :PRINT “ Repondez seulement par OUI ou NON“: G60TO 850 

870 RETURN 

B80 PRINT CHR$ (12) 

890 PRINT :PRINT “ Vous allez enfin realiser votre reve :° 

9700 PRINT * rivaliser avec SUPERMAN" 

910 MAIT TIME 10 

920 PRINT :PRINT :PRINT “ Le but du jeu est de traverser la ville sur les 
toits” 

930 PRINT :PRINT “ des buildings et cela le plus vite possible." 

940 PRINT :PRINT :PRINT “ Les touches a utiliser sont les suivantes =" 

950 PRINT :PRINT * A pour avancer":PRINT * S pour escalader et sauter“ 


R pour reculer" 


RETURN 
CURSOR 0,1:PRINT “Appuyez sur la barre d'espacenent" 
G=GETC 

IF G=32.0 THEN RETURN 

GOTO 1000 





Fabrice Duluins M 
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COMPLICES 
ET SUSPICION 


Ceci n’est pas un jeu 


























REN COMPFLICES 67 SUSFICION 170 BS(T)=" COUTEAU 


7? RER - - 188 BS14)="CHANDELIER" 
, 2 P12<0 198 B#13)="GOURDIN" 
de Cluedo, maïs bel 17 se rire Le 
f 210 Cst2="CHanr 
et bien une enquête Lo 228 C9 1312 -DEcHam0e 
CLDICR une enqueue 7 120 210 Cs(a)=" JARDIN” 
5 . + 4 = ù ? 9 RANDOMI7E 248 Cs13)="ROIS" 
judiciaire avec suspects, 18 DIM #60 D Ce epnt 
11 ACM FACULTATIF 268 Bs=1 
+ PE ja Dim pes: 278 GOSUR see 
coupables, témoins, HT Er de 
26 Dim Dir 290 GOSUR “eve 
lices teurs. 3 
\® Dim F8) 108 BeINT (RNDel,.%s+41 
com Ice, men Curs, :5 DIM 616) 110 GOSUR Seuve 
F Lots A ù 48 DIM As:8) 128 PBoINT (RNDeT,=+41 
indécis ou honnêtes No FC ae 
pa e 68 DIM Cet} 148 B=-7 
d 62 REM FIN FACULTATIF 19€ GOSUR “oee 
gens, des interrogatoires, Sep héreee d _… 
fi . 80 Asi2)1="JE AN" 3:70 GOSUE 5ePe 
ch 98 As I1)="DUROND" 58e P-8 
un 1 1er, 100 Asia 5 DUPAaND" 190 GOSUR Seove 
® ® 110 A8 (9)="LAPIE” «ue GOSUE seve 
un laboratoire, une prison, ee D RE you 
ps - 139 ASi7)="O' NEIL" 418 B'INTIRNDeSell)el 
140 AS (B)="BARREALI" A2 CIINT(RNDebe ti) =) 
un temps imparti, ne ee css 425 REPONSES CONNEES 
)="CORDE FOR â=1 10 8 





des perquisitions, 
des fouilles... 


une quête pour la vérité 
toute nue, avec 

un maximum de preuves 
à l'appui. 


e meurtrier est parmi nous,  sition; l'authentifier grâce au 


mais tous les indices sont 
chiffrés : suspects, lieux et armes 
sont numérotés de 1 à 8 et 
apparaissent dans l'ordre crois- 
sant; si indices ou questions 
vous mettent sur la voie, des 
preuves sont nécessaires pour 
convaincre le coupable (décou- 
vrir le corps à l'occasion d'une 
fouille, l'arme lors d'une perqui- 


laboratoire). Douze manœuvres 
consécutives sont possibles 
(sans compter les perquisitions 
et fouilles) avant que le meur- 
trier traqué n'exécute son com- 
plice ou un témoin par désœu- 
vrement. Au 24° coup (de mi- 
nuit ?), le maniaque en liberté se 
présente à l'inspecteur et le 
liquide froidement. 
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IF Ataic=a THEN GOSUB +088 
sosus 79 
NEXT A 
REM FICHIER 

AnINT (RNDeB+1) 

IF AlAin1 THEN 60TO 498 
RS=STRa IA! 

REM INDICES DU LIEU 











528 FOR B=1 10 é 
1F RND>,33 THEN 578 
A=INT 1ANDeS+1 1 
1F BiAi=i THEN 548 
G'Bi=A 
NEXT 8 
K=® 
Q=i 
1F AtQ})=t THEN D=2 
CET ! 
v-8 
RENM TABLEAU 
681 PRINT “VOICI LA LISTE DES 


SUSPECTS..." 

682 FOR A=1 T0 8 

PRINT A#$1A) 

NEXT À 

PRINT DES LIEUX PRESUMES" 
FOR A=1i TO 68 

PRINT “ET DES ARMES CONNUES"* 
FOR A=1 10 
PRINT Bs(A) 
NEXT À 

1F INKEYÆ="" 
cLs 

REN DEBUT 
PRINT AT 6,8: "ENQUETE POLICIERE® 
PRINT AT 2,8:"ALSORITHME DE 


THEN #15 





63e 
DECISION" 


631 PRINT AT 3,83"1. INTERROGER LE SUSF 
ÉCT SUR LE COUPABLE" 

632 PRINT AT 5,83"2. SUR LE LIEU % 
SUR L ARME* 

3% PRINT AT 6,85"4. FICHIER POLICE 5. 
ARRESTATION" 

634 PRINT AT 7,@1"6. PERQUISITION ,. 
INDICE DE LIEU" 

6158 PRINT AT 8,8:"97. LABD D'ARMES 19. 
ACCUSATION* 

648 INPUT RAR 


658 1F RRÇeS OR RAReS5 OR AA*6 OR RAR-19 
THEN PRINT "QUEL COUPABLE (1 À 837" 
668 IF RR=7 OR RR=B THEN PRINT "OUEL 
LIEU, INSPECTEUR (1 À 617* 

678 IF R<>4 AND RC:9 THEN INPUT FP 
675 IF (RA<>4 AND RR<71 AND (R(PI=-1 
"IL EST MORT, INSPECTEUR": 


THEN PRINT 
6070 648 
<se 


K=K+1 

Gosus 4388 

IF RAR>18 THEN 628 

cLs 

G0SUB RR+288+1888 

IF Pel AND AtQi=1 THEN 715 

1F K512 AND 11=8 AND 12°9 THEN GOBUB 





4508 

719 IF ke24 AND 12=8 THEN sec 

715 IF F<)S THEN GOSUB 72188 

728 8010 628 

1180 REN REPONSE COIPABRLE 

1208 1F A(PP)-8 THEN GOTO 1300 

1219 PRINT AT 11,81A8#(PPI4* DIT QUE 
ASIDIPPI)5" EST COUPARLE" 

1228 RETURN 

1308 1F RNDY,6 THEN 1358 
1319 A=INT(ANDeB+ 1? 

1328 IF ACAI=l OR APP 
1Y30 ReA 

1340 GOTO 1368 

1350 AeD(PP) 

1368 PRINT AT 11,@1A8(PFI4" DIT QUE 
AsiDIPFI)y" EST PEUT-ETRE COUPABLE* 
1370 RETURN 

1308 R£n REFONÉE ARnE 

14 IF AiFF'en THEN 1808 

1418 PRINT AT 11,@5A8(PPII" DECLARE QUE 
L'ARME DU CRIME EST UN “ABecE PP) 

1428 RETURN 

1508 :F RND>.6 THEN 1558 

1918 A=INT (RNDSD+1) 
1520 IF BiAl=] THEN 
1330 F-A 

1540 GOTO 1568 

1530 AeE (PP) 

1568 PRINT AT 11,81" 
SERAIT UN “1B#(R1 
19470 RETURN 

1908 REM REPONSE LIEU 


"s 


THEN 1318 





DECLARE QUE L ARME 





L PROGRAMMES 














1608 IF A(PP)=8 TMEN 1788 
1618 PRINT AT 11,@:1A8 (PP); " AFFIRME 
LE CRIMINEL AURAIT ETE VU DANS LE 
MyCELFIPPIJ) 

1628 RETURN 

1700 IF RND’.6 THEN 1738 

1718 A=INT (RNDS6+1) 

1720 IF C(Ai=l THEN 1718 

1739 RrA 

1744 6010 1768 

1750 ReF (PP) 

1768 PRINT AT 21,852816P);" CRAIT AVOIR 
VU LE CRIMINEL DANS LE “#C#(R) 

1778 RETURN 

1788 REN FICHIER REPONSF 
1808 IF R#="9" TMEN PHINT AT 


Due 


19,98:"Aaucum 


SUSPECT N'EST FICHE"360T0 1815 1818 FHINT 


AT 19,81"SEUL “#A#IVALIR#T II" N EST PAS 
FICHE (FORTE PRESTIMPTION D INOCFNCE " 
18915 MAIT 108 

1828 RETURN 


REM PRISON 

IF RiPP)he] THEN PRINT AT 
+" à DFJA ETE ARRETE, VOUS NE FOouvEz Li 
REFAIRE SANS PREUVE":580170 6° 

202€ R'PF)hm) 
2025 IF AIPF'iel 
PRINT AT 
4 TOURS" 
ge 
Pr 
RETURN 
P=Ps] 
1F Pa 


TMEN 17=1 


11,@uarcPPIir EST ARRETE 


AT 


2119 
EST RELACME" 


THEN PRINT 28,814410%3" 
2115 
2178 
2138 
2150 


IF Pad AND AtQGi=| 
IF Pea THEN Pÿ 
RETURN 

REM PEROUISITION 
2708 à4-RND 

2210 IF AC.5 AND A(FPI" 31 THEN PRINT AT 
11,91" ON NE TROULE PAS D'ARME PRESUMEE 
CHEZ "rA# (PP) 6070 2221 

2220 PRINT AT 11,@5"ON À RETROUVE 
BSIINTIRNDemeL1 Ip" CHEZ ÉLRLLA) 
2221 FOUR Rei 10 © 

2222 IF BtARi=) THEN 272 °@ 


IHEN 17°9 


un *: 





2213 MENT À 
1320 IF AtPFde] THEN PRINT AT 11,4%: ON à 
RETAQUYE UN ‘“s#B#tARIE CHEZ “148 PP) 
2248 If AiPFiel THEN Vel 
2748 RETUFN 
2100 REM IMDICF LIEU 
14008 !IF G(PPIe8 THEN PRINT AT 11,8: 
AUCUN INDICE" 
2410 IF GPF)ef THEN RETURN 
7426 PRINT AT 11,81" PAR DE SAVANTES 
EXAMENS ET DES INDICES RFCUEILLIS ON 
N EN DECUIT QUE L'@ARME N ESY FA UN 

M NMALIIR 
24:98 FETURN 
2500 AFM FOUILLES 
ZOO 7 GiPFr 1 THEN FAINT AT 11,83 
"AUCUN CADAVRE N 4 ÊTE THOUVE DANS LE 
csiæ» 
2618 1F C'FPh=l THEN PRINI 1 28,84" ON 
A RETROUVE LE CADAVRE DANS LE “iCæiPPi 
2628 IF CiPPi-1 THEN Pl» 
2610 IF AND:,5 AND k 18 AND N: 2? THEN 
K=k+1] 
2458 HETIAN 
2108 REM | ABORATOIRE 
2808 IF Pisg THEN PRINT AT 11,85" COMMENT 


VOULEZ-VOUS QUE LE LABN REFONDE SANS 
AVOIR LE CADAVRE 7" 

281e 
" CE 
287e 


N'EST PAS L ARME NU CRIME" 

IF Vé>@ AND P1<3@ THEN PHINT ÀT 
EST L'ARME DU CRIME" 

IF VLi® THEN Pi 

RETURN 

cLs 

REN ACCUSE LEVEZ-VOUS * 

1e:e 
COUPABLE ,LIEU,ARMEr " 
1920 FOR Ae1 TO & 
101% PRINT ASIAIIA, 
1848 NEXT À 

5058 FOR ei TO $ 
1068 FRINT B#tA15A, 
1970 NEXT À 

FOR A=1 TO # 
PRINT C#tAisA, 
NEXT À 

INPUT A1 





34 


19,0A81Pr: 














1F Ve®g AND F1-2@ THEN PRINT AT 11.8: 


PRINT "ENTREI SUCCESSIVEMENT: NUME MIN 





179 INPUT AS 
1140 INPUT 47 


5190 CLS 

t16D IF AAA MEN PRINT “pRAVO * € EST 
LE COUPFABLE”" 

fi61 REM RESULTAT 

170 IF B(AZ)I=) THEN PRINT “BON, VOUS 
AVEZ TROUVE L ARME" 3188 1F CAATIeN THEN 
PRINT “Ok, LE LIEU NE VOUS À FAS 

ECHAPPE® 

190 1F PI<:8 AND P2°>0 THEN PRINT "ET EN 


PLUS VOUS TENEZ TOUTES LES PREUVES LE 
POSTE DE COMMISSAIRE VOUS €67 FROMIS" 
2198 IF PIE AND P2<:8 THEN 810 

2208 IF Pi=i OR P2mi THEN PRINT "VOUS 
AVEZ DES PREUVES, MAIS ASSEZ, LE CRIMINEL 
BENEFICIERA D'UN NON-L IEU, ET VOUS FEREÏ 
TINTIN POUR LA PROMOTION" 

1210 IF F2=8 THEN FRINT VOIRE LENTEUR 
VOUS NUIT DANGEREUBEMENT: VOUS NE PROUVEZ 
RIEN* 


3220 IF A‘ALI<>S OR B(A2: "1 OR Ctass- oi 


LE 


[RA 


THEN FRINT “VOUS ETES RESPONSABLE DE LA 
BAVURE DU SIECLE. VOUS ETES MUTE": 010 
07e 
7239 RENM 
s5ee STorF 
crs 
REM TROP LENT DANE L' ENQUETE 
AG1Q PRINT "-= SPECIAL DERNIERE --- On 
DEPLORE LA MORT DE L INSPECTEUR JULIUS 
LACRAVACHE, SUPPRIME FAR LE TUEUR AU 
COURS DE SON ENQUETE" 
4819 REM SOLUTIONS 
PRINT "AVEC 1"FOR et 10 6 
12=1 
JF AtAi=) TMEN PRINT AS{A)1" Dans 
DU COUPABLE* 
NEXT À 
FOR Ai TO & 
a@ee IF BiAls1 THEN FRINT ptiars" DANS 
AOLE DE L'ARME”" 
4078 NEXT À 
4088 FOR A®=1 TO 6 





@ 15 CiA)=l THEN PRINT “ET “1"C#iais 
“ DANS LA PEAU DU ‘LIEU DU CRIME 
NEXT à 

Stop 

A=RNG 

REN DEJA UN MEURTRE 

ELLE 

1F A. IMEN Be7 

1F Aée,S THEN Be2 

FOR A=1 TO & 

15 AlAl)=B THEN 6010 4568 
NEXT À 

RiAle=t 

4579 PRINT AT 78,@5as1A1;" À FTE 
ASSASSINE FAR LE TUEUR Qui VOUS MENACE 
FAR COURRIER" 

A8 RETURN 

4598 REM VACANT 

S008 A=INT(RNDeB+ 1) 

Saie [IF A‘A)C:B THEN 5088 

hiAi-B 

RETURN 

REM MENTEURS 

B= INT CANDsB+ 11 


IF A‘DB)i=i OR AR THEN +eeee 
DA) 
PBeINT (CRNDeS+11 
1F BiBi=) THEN 6978 
Era eh 
40:80 BeINTIRNDsé+ 11! 
6878 IF CiBi=1 THEN 6069 
BG F(Al=E 
6108 HETURN 
b3nO REM EFFFACLMENT 
6588 PRINT A1 11,0:8FC:288: 
ts10 RCTUNN 
6600 REM BONS,VERIDIQUES 
1008 CeiINTIRNDeB+ 1) 
181@ [IF AIÇTICY\I THEN 7088 
7e2® Diñi=C 
7850 DINTIFNDeS+ Lt 
7048 1F RADI 1 TMEN 78: 
7058 EiA4) =D 
106n F-INT(INMDsE +11 
1O7Q IF CiFis:]i TMEN 7868 
188® Fiai=t 
T100 RETURN 
Sage REn FIN 
JUIN AEM DOUBLE FIN. SAUVE 7 CE FROGHAMME 
SUR CASSETTE . RUVEZ UN JUS DE FRUIT 


AVANT DE TAPER RUN 
:@70 FP-5 L ASSAUBSIN ÉTAIT LE Fac TEUR 


X. Perrin 















28 REN TROU NOIR 


68 REN CALL AXX(A,B$)=60 SUB (A,B$) 

10 REX SPRITE=LUTIN(NUMERO, ASCII , COULEUR, 
HPOS,VPOS,HVIT,WVIT) 

88 REN LOCATE = PLACE LUTIN(NUMERO,HPOS, V 


DOUBLE TAILLE LUTIN 


118 REM CHAR = FONTE DE CARACIERE ASCII 
128 REN PRESENTATION 


158 2$(1)="FFFFO08080808088" :: 
FFO181@1810181" :: 2#(3)="908080808088F 
12 2#(4)="810181010IDIFFFF * 

168 CALL CHAR(44,"@20E3E397062E 681") : : 

S,"48787C1C0E 46678") :: 
AR(46,"@1E66270383E0E 02" 
"8867480E 1070784") 

178 FOR 1=1 T0 4 :: 





12 CALL CHAR(47, 
CALL CHAR(39+1,2${1)) 
CALL DEMO :: CALL DELSPRITE (ALL) 


=zinitialisation jeuz= 
1: 1#(5)="FF80B1B38C8B94AS 








LE TROU NOIR 
…… FLOTTE 





SUR LA MARMITE 


L'araignée mécanique a tissé sa toile carrée autour 





des trous noirs au chocolat. 





Voici les movens de vous schtroumpfer une revanche 


illico derechef. Ne manquez pas la petite démonstration 


liminaire_ prévue pour le_TI 99/41. 


“+1 2#(6)="FF@1BD4D39D12945" :: 1#(7)= 
"A5948B8CB2B180FF" :: 2$(8)="A529D1314D8D 
GiFF* 
208 FOR 1=1 T0 4 :: CALL CHAR(3941,2#(1+4 
ss NEXT 1 5: CALL CAD :: CALL GRILLE 

: DISPLAY AT(5,25):"TIRS" :: DISPLAY AT( 
22,24}: "SCÛRE* 
218 CALL sp 8):: 
129339,8)t: CALL HCHAR(E,13,78):: CALL 
HCHAR (12,2,79): CALL HCHAR(24,13,83):: C 
ALL HChAR(12,25,69) 
220 DEF NU(H)=CB#i (H>16)#(HC25)-(H<9) )+{C 
E+1)#{(H>8)#(H{17}-(H)24)) 
230 DEF R9=INT (B#RND+#1) 
248 RANDONIZE 
250 1F RND>0. 
268 FOR J=8 T 
i=8 :: sul 1 ? 
278 FOR I=1 TÙ 
288 RI=R9 :: A 
290 IF &1=9 OR R2=9 THEN 280 
300 IF BiRI,R2)(>8 THEN 280 
318 BIRI,R2)2! :: NET I 
328 FOR 1=@ T0 4 :: CALL CHAR(184+8+],"00 
QOBQFFFF'):: CALL CHAR(185+4#I ,RPT$("18 
"8l):e CALL CHAR(10b+8#1,RPTS("FFFFFF 00" 
,2)):+ CALL CHAR(107+8#1 ,RPT$(*E7*,8)) 
: NEÏT I 


CALL HCHAR(S 


5 THEN N=4 ELSE N- 
0 9 :: FOR 1=û T0 
: ENT J 


E 
J 
q 


: BU] 


— 35 





334 REM==debut du jeu== 

340 5=0 :: CO=-1 :: W=B 

358 IF C0=9 OR W=28 THEN 760 
368 CO=C0+1 :: CB=104-2#(C0> 

C0}=5)) 

270 ACCEPT AT(7,26) VALIDATE("123456780ESN 

R")SIZE(21BEEP:R$ :: IF ASC(R$)=82 THEN 
768 ELSE IF LEN(R$)<>2 THEN 370 

388 IF ASC(SEGS(RS,1,1))>68 AND ASCISEGSi 

R$,2,1))C60 THEN R=VALISEGS(R4#,2,1)):: 

R$=SEGS (R$,1,1):: GOTO 480 

39ù IF BC (BEBE IRS: 1.15) C6 AND ASCISEGF( 

R$,2,1))>68 THEN R=VALISEGS(RS,1,1)):: 

RS=SEGS(R$,2,1)ELSE 378 

408 K=-C(R$="Q")#R+ (R$=°S")#(B+R)+ (RS "E" 
J#(LO+R)+(R$="N")#(244R)):: I=INT((R-1) 
48):: C=NU(R) 

418 ON [+1 GOTO 450,448,450,428 

428 XF=33+16#(R-L#Bh:: YF=9 1: 
438 YF=25+16#(R-IaBi:: AF=25 :: 

448 XF=33+16#(R-I#Bl:: YF=189 

450 YF=25+1b#(R-I#8):: XF=185 

468 CALL BALLEUXF,YF,C):: IF R>24 THEN RO 

57-R ELSE IF R216 THEN R=41-R 

478 ON 1+1 GOTO 480,490,508,518 

480 X,V=0 :: U=1 :: Y=R :: 6070 528 

498 X=R-8 :: Y=9 :: U=@ :: V=-1 :: 6010 5 

28 


25)+8#(C0+5# 


60TO 468 
60TO 468 
:: 6070 468 





SPECIAL PROGRAMMES 
HS65 DECEMBRE 1984 


LE TROU NOIR FLOTTE SUR LA MARMITE 


5e0 1:97 :: :: Veû :: 6070 
524 

SI8 DE35-R 1: V,U=8 14 V=1 
528 11=1eU 12 Vi=t#4 

538 1F U-8 THEN 12-11-14 :: 
f3e11 :: 6010 558 

SAO V2=Y1-1 22 V=Ylel :: 12,131! 

SSÙ LA=B#BUXI,YL)#B(N2,V2)+28B (13, V3+1 à 
: ÎF 1A)4 THEN 578 

568 ON 18 6010 558,598,608,590 

578 #2 :: DISPLAY ATUN,25):CHRS (CH) 4 CE 
RSICRIE" À" 12 S-Sel 12 CAL DELAI 1280) 
:: 6010 358 

590 A=A1 :: Yeti :: 6010 830 

598 2=1 :: 6010 618 
ou 1=-! 

ot 1F LA THEN LI :: 
620 L:8 :: wi 

650 ON INT(11+152/8)6010 658,648,668 

648 ON INTI(Y+152/8)6070 878,520 ,684 

650 1=Y :: 6070 698 

668 1=25-Y :: 6010 690 

820 I=33-1 :: GUIC 698 

688 1=8+1 

690 1F Z=R THEN B=ai2 1: DISPLAN 875,25 
2CHRS(CHIECHREICHIR" À° :: SeSel :: CAL 

L DELAI (280):: GOTO 350 

708 CENU(L):: ON INT((2-1:/8)+1 GOSUB 718 
,128,1738,740 :: S=5+2 :: CALL DELAI (288 
h:: 6018 55 

718 CALL ACHAR:4+767,4,C.21:: RETURN 

728 CALL VCHAR(21,5e(1-8ie2,C,21:: RETURN 
730 CALL HCHAR(22-(1-16)#2,22,C,2):: RETU 
FN 

748 CALL VOHAR(S,23-11-24)92,C,2):: RETUR 
L 

TSA REM==fin du Jeu-reponses== 

768 CALL DELSPRITE(ALLI:: FOR 1:28 10 31 
2 CALL VCHAR(2,1,32,19):: NEXT ! :: DI 
SPLAY AT(2,24): "TROUS" :: DISPLAY AT(4,24 
24 577 

110 ACCEPT AT(6,25)VALIDATE("4S")BEER SI 
EthhsC :: CALL HCHAR(2,38,321:: CALL KC 
HAR(4,26,32,6):: IF CN THEN 5255 

188 AS="COLONNE LIGNE" :: FOR 1=1 T0 LEN( 
A#):: CALL HCHAR(3+1,27,ASC(SEGS (AS, 1,1 
))h:s MENT ! 

290 FOR G=1 10 C 

800 CALL HOMAR(2,351,48+0):: ACCEFT AT13+0 
°28)S1IE(1)VALIDATE( "12345678" ):L :: AC 
CEPT AT(11+0,28SL1E (1) VALIDATE "12345678 
"hic 

818 1F B(L,C)=1 THEN S=5+18 

828 MENT © 

83e FOR 1=1 10 4 :: CALL CHARCZS+1,2841)) 
22 MENT 1 52 FOR E=1 10 8 :: FOR J=1 10 
8 

848 1F BII,2)=1 THEN CALL TRO(J,1) 


Ve25-R :: Us-1 


Esilel :: 2, 


V=8 :: 6070 558 





858 MEXT J :: MENT I :2 DISPLAY AT123,25) 
BEEP:5 

868 CALL KEY(B,K,C):: IF C=8 THEN 868 ELS 
E DISPLAY AT(23,25): "000" :: 6010 198 
878 SEN-=sous -progr an0es== 

888 REN-=1.decor du jeu 

890 SUB CAD :: CALL CLEAR :: CALL COLDR(I 
112,12):: CALL SCREEN(I2):: FOR 123 10 

8 :: CALL COLOR(1,12,12)2: NEXT 1 #3 CALL 
COLOR (2,12,12,9,5,12,18,13,16,11,7,16) 
908 CAL COOR(12,1,16,13,1,16,14,1, 18) 
918 CALL CHARIS,RPIS("F" léihss CALL Cné 
RCJ4 "FFFEFCFOFRERCESS" ):: CALL CHARISS 
."FF7F3F1F8FO78381") 

928 CALL CHAR(36,"B@COEQFOFSBFCFEFF"):: CA 
LL CHAR(S7,"O10DR7RFIF JF 7FFF"):: CALL C 
HR (39,RPTS("CCCC3353",2)) 

53e CALL CHAR (96, "270 0711191F 818 
DATA FF CHEF OF EF RF BEDCRERF RER RERCEF à 
Ed") 

948 CALL MAGNIFY(3):: CALL CHAR(IOO,RPTS( 
*2",12)4"CACR"4RPTS(" 0" ,48)) 

958 FOR 2=4 10 21 STEP 17 :: N=49 :: FOR 
I 10 28 STEP 2 :: CAL CHAR], 1, Ki:: 
Ekel :: MIT ! :: MEN 2 

968 FOR 3=5 10 22 STEP 17 :: K=49 :: FOR 
125 T0 19 STEP 2 :: CALL HCHAR(I,d,K):: 
Kakel :: NEUT 1 22 NENT J 

778 CALL HOMAR(2,3,13):: CALL HCHAR(Z,4,3 
db:: CAL CHARTS, 3,34) 

380 CALL HCHAR(2,24,35):: CALL MOMAR (2,23 
°33h:: CALL HCHARI3,24,35) 

998 CALL HCHAR(23,3,33):: CALL HCHAR(23,4 
,36):2 CALL HCHAR(22,5,36) 

1008 CALL HCHAR(23,24,33):: CALL HCHAR(23 
123,37):: CALL HCNAR(22,24,571 

1818 SUSEND 

1820 REN==2.grille du jeu== 

1838 SUB GRILLE :: CALL HCHAR(1,1,39,32): 
: CALL HCHAR(24,1,39,32):: CALL VCHARII 
+32,39,24):: CALL VCHAR(1,2,39,24):: CALL 
VOHAR (1,25, 39,24) 

1048 FOR 1=1 10 8 :: FOR J=1 10 8 :: Its} 
+162 :: 11=)0264 

1858 CALL HOHAR(I1,J1,48):: CALL HCHAR(II 
J1t1,41)t4 CALL HCHAR(II#1,91,42):: CA 
LL HCHAR(11#1,3141,43):: NEXT à 2: NEXT 1 
1868 CALL SPRITE(#1,108,7,9,217):: CAL S 
PRITE(02,96,5,9,217)2: FOR 123 10 & :: 
CALL COLORII,2,12h:: MENT ! 

1970 CAL COLOR (1,14,12,2,2,3,12,3, 16,13, 
9,16,14,5,16):: SUBEND 

1088 REN==3.deplacesent de la balle== 
1890 SUB BALLE IF, YF ,C) 

1108 12217 12 29 22 FOR 1:27 10 4 STEP - 
L' 22 11-86 :: CALL LOCATE(#I,7,H:: CAL 
L SOUNDI-4800,208,8):: IF 1=1F AND V=1F ] 
HEN 1150 





1118 MENT L :: FOR 1=2 10 21 :: Y=te8 :: 
CALL LOCATE(#1,V,H):: CALL SOUND-4088, 
300,0):: 1F X=XF AND Y=YF THEN 1160 

1128 MENT 1 :: FOR 1=4 10 23 :: 12108 :: 

CALL LOCATE (#1 ,1,1):: CALL SOUNDI-4008, 

AMU:: 1F 1-15 AND 1=1F THEN 1178 
LES MENT 3 :: FOR 1:22 10 2 STEP “L:: 
2Y-8 :: CALL LOCATE(#1,Y,H):: CALL SOUN 
D(-4000,508,0):: IF X=XF AND Y=YF THEN 11 

EL 
1148 MENT ! 

1158 CALL SOUND(-18,288,38):: 15 C:32 TÆ 

N SUBEIIT ELSE CALL VORAR(S,1,C,21:: SU 

BEXIT 
1168 CALL SOUND(-18,200,30):: IF Ca32 THE 

N SUBENIT ELSE CALL HCHAR(I+1,4,C,2):: 

SUSEr IT 
1170 CALL SDUNDI-18,208,38):: 1F C:32 1 

N SUBELIT ELSE CALL VOMAR(21,1+1,C,2:: 
SUBELIT 
1188 CALL SOUND(-19,288,38):: IF C=32 

N 1198 ELSE CALL HCHAR(I-1,22,C,2) 
1198 SUSEND 
1208 RER==4. attente== 
1218 SUB DELAI NI :: FOR 

1 :: SUBENS 
1228 REM==5,.titre-reglesz= 
1230 SUB PAGE :: CALL SCREENI2):: CALL CL 

EAR :: CALL CHAR(SS,"FF"):: CALL CHARIS 

4 ,RPTSL"E" LORFF") 

1268 CALL CHRRIAO,"@IRDANF 1535 7FFF "5: C 

ALL CHAR(42,RPTS("F" lé: CALL CHARS 

1," FFFEFCF8FRERCOG@" ::: CALL CHAR(96, "038 

OCH050008 1") 

1258 St="APPUYEZ SUR UNE TOUCHE" :: FOR 1 

21 10 12 :: CAL COR ,12,2):: MENT ! 

1268 FOR K=8 10 1 :: FOR 1=1 10 4 :: CAL 
SPRITECOLeN EE ,42,1,1+10168,755/1-10,8, 

18-X20) 

1270 CALL SPRITE(#1+84K+4,44,1,941688Kk,25 

S/1-41,0,18-284K):: NET 1 :: NET K 

1288 DATA 11,0) (e#s)(#09),18,1)  () 
(,9,41 (se) (ess),8,0) {) 

7, 1888) 1488) 1088) 

1290 DATA 3,l0nm)1##2)(00)() (11608) ,4, 

0 0 00 00 00,3,0 (###)4) tt 

) ()4#6#),2,0) (DA) €) 430) €) 0) 

1388 DATA 1,0) () Ltess)(#88) (608) ,5, () 
(11004)1)(400)(##8),4,0#) 120) 
00,3,0143{)1) Chess) (ess) 

1318 DATA 2,1) (et (0) €) 0) 
((###)()0) (1688) 

1320 RESTORE 1288 :: FOR Jz=1 TO 3 +: FOR 

e1 T0 5 :2 READ LAS :2 PRINT RPIS(" * 

«1-100AS :: MENT L 2: PRINT :: MENT 9 2: 

PRINT :: PRINT 

1338 CALL HOMAR(1,1,33,32):: CAL HCHAR (2 

11534,32):: CALL HCHAR(22,1,33,32):: Ch 


THE 


1et T0 N :: ŒT 


IUU 


(),1,0 














LL HCHAR(23,1,34,32):: DISPLAY AT(24,3):5 
$ 

1348 CALL COLOR(#1,16,42,12):: FOR 123 T0 
lé :: CALL COLOR(I, Li: NEXT I 

1358 CALL KEY(B,K,S):: IF S=0 THEN 1350 € 
LSE CALL RAT 


1368 DATA 8,12," VOUS ALLEZ DEVOIR DEVI 


NER°,LA POSITION DE 4 OÙ 5 TROUS, NOIRS 


REPARTIS DANS UN ESPACE, INAGINAIRE DE 64 
CELLULES." *," ” 

1378 DATA * POUR CELA VOUS DISPOSEZ" ,D'U 
N SCHTROUMPF TIREUR QUI ,VOUS DEMANDERA 

LA CELLULE A,VISER. CELLE-CI EST REPEREE 
1380 DATA "PAR UNE DIRECTION O,S,E,N ET”, 
UNE COURDONNEE DE 1 A 8.,8,13,* DES OU 

E LA BALLE PENETRE" DANS CET ESPACE VOUS 
LA PER- 

1390 DATA -DEZ DE VUE ET SI VOUS AVEZ DE, 
LA CHANCE ELLE EN RESSORTIRA. " *,* 
LE SE PROPAGE EN LIGNE" DROITE SAUF 
BORDS DES 

1480 DATA TROUS NOIRS.DANS CE CAS LE,BILA 
N DU TIR EST DONNE: ," "," AR = BALLE 
REFLECHIE"," “,* A = BALLE ABSORBEE" 


EL 
AUX À 


141 DATA 8,11," DES QUE VOUS PENSEZ AVD 
IR" ,DEVINE LA POSITION DE TOUS,LES TROU 

S NOIRS VOUS TAPEZ:,” *," KR POUR REPO 

GE”, 2? 

1428 DATA * BONNE CHASSE"," ",* *,° 
VOICI UNE DENONSTRATION "," 

1430 FOR 1=1 T0 3 :: READ À,9 :: FÜR L=! 
10 J :: READ À$ :: FOR K=1 TO LEN(A$):: 
CALL HCHAR(A,2#K,ASCSEGS(A#,K,1)}):3 HE 
XT K ss A=A#1 13 NET L 

1440 CALL KEY(8,K,S):: IF 5=0 THEN 1448 E 

LSE IF 1=3 THEN :46 ELSE CALL Râ1 

1450 NEÏT ! 

1468 CALL HCHAR(1,1,32,768):: 
ITE(ALL):: SUBEND 

1470 REM==6,effacement== 

1488 SUB RAZ :: FOR I=1 TO 32 :: CALL VCH 
AR(3,1,32,19):: NEXT I 32 CALL HCHARIS, 
1,95,32)1:: DISPLAY AT(4,8):"LES TROUS NOI 
RS" :: SUBEND 

1498 REM==7.placement trous noirs== 

1500 SUB TRO(I,d):: 11=3+1#2 :: J1=2#J+4 
:3 CALL HCHAR(I1,91,44):3 CALL HCHARIII 
1J1+1,45):: CALL HCHAR(I1#1,91,46):: CALL 


CALL DELSPR 


HCHAR(11+1,91+1,47):: SUBEND 
1519 REN==8. desonstration== 
1528 SUB DEMO :: CALL TRO(1,3):: CALL TRÜ 
il,7):: CALL TRO(4,5):: CALL TRO(6,5):: 
CALL COLOR (#1,6) 
1534 DATA REFLEXION,9,97,24,8,-24,8,0,0,9 
7,25,0,72,0,-72,0,8 
1548 DATA DEVIATION,129,25,0,72,48,0,0,0, 
65,25,0,72,-16,0,0,32,16,08,8,56,0,0 
1554 DATA ABSORPTION,65,185,0,-56,-16,8,0 
.748,0,0,81,25,8,88,0,0 
1560 RESTORE 1530 :: FOR I=1 TO 3 :: READ 
A$ :: FOR J=1 TO LENIA$):: CALL HCHAR( 
6+3,28,ASC(5E6$(A$,J,1))):: NEXT J :: FOR 
K=1 TO 2 :: READ U,V :: CALL BALLE (V,U 
532)3: X=V :: Y=U 
1570 FOR d=1 TO 18 :: READ U,V :: ÏF U+y= 
8 THEN 1590 ELSE Li=U+v :: U=SGN(I1)#4/ 
11 :: V=SGN(IL)#V/Ï1 :: 11=ABS(11) 
1560 FOR L=1 TQ Il :5 N=feV 55 V=Val :5 C 
ALL LOCATE(#L,,K)5s NEXT L 5: NEXT J 
1598 CALL DELAI(S@8):: NET K :: IF I1=27 
HEN CALL TRD(2,3) 


1608 NEXT 1 :: SUBEND R. Bois BE 





« OBJECTIF PLUS X» 


Destruction de cibles avec des 
obus : le plus vieux combat du 





monde à pied d'œuvre sur 
un trottoir miné 
et le d jeu au pro 





U: mode d'emploi complet 
est affiché par le pro- 
gramme. À chaque mouvement, 
de nouveaux obstacles appa- 
raissent aléatoirement; leur 
nombre dépend du niveau du 
jeu : au niveau O, il y a 100 
obstacles au départ, puis O ou 1 
obstacle qui se matérialise à 
chaque déplacement. 

Pour Oric Atmos et Oric 1. 





HS65 DECEMBRE 1984 








«OBJECTIF PLUS X> 


Ze2-1 TeT-1 PETURN 
RENM COMPTAGE DES CIBLES TOUCHEES 


0 PEN PROGRAMME POUR ORIC ATNOS 
1 REN POUR L'ORIC 1, SOUSTRAIRE 1 


2 "EN A TOUTES LES ABSCISSES DES FORI=1TOIR 
2 PEN FPLOT ET CHANGER LA LICME 10078 

+ PEN AIME] 1007 CALL eFE52 

9 ON CRESTORATION Ou CLAVIER» 

é em 

7 CLS PEINTOMER € > Mel US=CHE 295) COSURISESS COSUESEES 


î 


TFC Dm DERDE À DT TMEMNE À Dent Jat À mt Limtiet 
ext! 
1F1n LOTENLS 
COTON : 0e 
PEN OMSTACLES GUPPLEMENTAIRES 
LUS. CS, 
IFHHAQTHEN RETURN 
FORT = 1 TONN 
Re LMTCRMOC 1 De] > Be INTERNES 1 MPG 1 à 
2e FORM A. RC)" TMEMEZR 
ne Fnac à VIEN 10 HS Le | in Le] 
2 1FRDSCHPON 11 YTMEMPLOTNeL .V." * COTO 128 OA DCE 2: FLOTRet BUS 
2 PSC LOITHEMEMOOT Zux Ter COTOLLE Æurt 
ee Fe" "TMENI000S PE TUE 
100 Popel  IFPRIaOTHEMRe | so0e PEN CREATION DES CHARS ET DES MISSILES 
102 GOTOo112 FOR 1*4685%6 T0 46299 
118 RoR-1 IPRCAOTHEMRED READ À 
112 PLOTMeS ,Y.COC Pr GOTO1e PE 1,8 
128 COS Def IFX a TMENMe 
121 1FXC MES TE 
L2R FTP TENT = 
LED 1FYC ENTRE 
120 1FP=CPMOON Xe! , N 20 >" AMDON X, Ver 2C 2e 
"TMEMPLOTXeR , Vét,"#" COTO 168 
129 1FR=2ANDOB K-1 , Ÿ De 2" AMDOBC X, Ye 2e 2e 
*"THEMPLOTX ,Ye1."2" O0TO 168 
La IFRS Xe Ne pp M V4 ve ve 
"TOWPLOTReR.V-1."5" COTO 16 
Le LFP 2-1 VC LEO -2 2 
"PAPLOTX ,.Y-1."2" Q0r0 16 
148 IFORX.Y >" TMEMPLOTX.V. "9" GOTD 149 
199 PLOTXeI ,V.CH RAR) CGOTO1® 
EXPLODE FORI=1TO? 
1F1=2TMENITSELSEPMPERT -MAITES 


24545: 


s.z1.m 
s.22.4 
ee.» 
2, %, 4 
e, 0,17 
0, ©, #, 
e.21,14 


Sesfsss3!Nsss 
s0u0%0%.00%0 


©, 2, 4,40,48,%, ©, © 

0, 8,16,62,16, 8, ©, © 
DATA ©, €,%6,48,48, 4, 2, © 

ee EN MISE EN CH X) DES Ces 

LAN 7 eme CM i2"e" CM 22 D" CMP ec" Made" 
VV MEN CORRE TES LS 1. 
se run PEN MISE EN DO X) DES MISSILES 
VaVoL RETURN DO 1 2e 4 * D 2 ee je D Dern + DEN 4 ete 
RETURN DU Sen" DM Éd n" ON 7)" 0" DR Be p" 
Vas RETURN REN CREATION OÙ TERRAIN 
DIMOS 29,27 >» DEMVE 18 >: D'EPSAC 18) 
CLS PAPERS 112 
FO Ie1TOES 
Po DNNe Ex À Dee 1 >: De NET EX 1 2R2Ee 1 > 
FOR A. D 2e" TMEMON À, D CM 29 MLSE711S 
PLOTRe! .D.0e 
EXT! 
REN CREATION DES CIRES 


ESSEIREREEEEREFETÉE 


IFRaGR DO Z+1 , T 2€ 2" ANDOB 2, Te >< >" 


“THENPLOTZ42, 141, "#2": GOSUR378 : GOTO2ES FORTE 
22 1FR=DROON Z-1. TD DOME, Ten 3e à Fe LNTOPMEN 1 2861 }: De IMTCRMDX 1 22GS 1 » 


°Te1."2" COSUEITS COTOMS LPO À. D Dee PMEMON À, D lee "ELSETI D 

DR LFRSAOONN Ze Te 2 DOM LE T-4 De 2 7189 PLOTRES D, “27 VA I Daft hi 1 2e 

*MEMPLOTZeZ 1-1."2" COSURISS COTOLES ? æxrt 

225 LFRAROON Z-1 . TX 2 AMDOM ZE, T-1 C2 L LEON POSITION DE DEPART OU CR 

“THMPLOTZ ,T-1,"2" CGOSUBMES GOT Me DMC AMEN 1 DBZ D: Ve NTE MM L DEL > 

D47 1FOSCZ,T >" "THEMPLOTZ+1 1,2" GOTO 260 1FORC XX, Y 2e" " THENPLOTMEL , Y, CM 1 MLSETS10 

248 IFX=ZANOYATTMENPLOTZ+1 ,T, “9° GOTO168 D RETURN 

29% PLOTZe1 TDR) MAITIE  COTO20E REN PRESENTAT 1 ON 

26e OPLOE GOTOSSe CLS PAPERS 102 

N70 On Ze Tele ne PPT LEO Ve le TMEMINEL SERETUEN ee “cm Er) 

PPS On 2-1 Tous PPT 1O Ve Te 1 TEMIIEL SEPE TUE PRINT-AETAREANEEAELAENNETEREEATENTTLETLELT 
Qc Zei. 1-12" IFaTe LOT -1 TEMPÉEL SERE TURN PRINT FPRLMICHEEX 4 » 
ON Z-1,1-1de" 8 IPNeZ- 1e T1 THEMPNOEL SEPT TUEN PRINTES NES" G PERMIS DE OMR... “ES-H'ES CC PRINTOMEN 4 ) 
PLOTX®1 ,Y, "2" COTO168 PRINT 
TeT=1 RETURN PRINT* POUR PASSER VOTRE PERMIS ‘CHAR ,* 
Zudet TaT-1 RETURN PRINT" IL VA VOUS FALLOIR DETRUIRE LES" 
Za7e1 RE TUE PRINT" CIMES MATERIALISEES PAR DES +." PRINT 
Deer Vates RE TUE LL. 21 LS UTILISEZ LES TOUCHES * PRINT 
Tate, SET PRINT" FLEOME À DROITE = VIMER À DROITE" 
Ze2-1 Vetel SETUEN PRINT" FLAC À CAUCME « VIRER À GC" 
Ze2-1 PETUEN PRINT" FLECHE EN MAT = ACER 

















PRINT" FLECHE EN BAS TIR" 
PRINT 
———————————————————————————————————……— …——— 


PRINT" ATTENTION AUX OBSTACLES, AUX" 


PRINT" CIBLES, ET AUX EXPLOSIONS. " 
PRINT" ATTENTION À VOTRE TIR.":PRINT 
PRINT" PRESSEZ UNE TOUCHE" 
PRINT* POUR CONTINUER, * 
PRINT PRINTES"G 


COPYRIGHT JOEL BECKER S-83"ES"C" 

FORI=1T025 :PLOTZ,1,"#":PLOT37,1,"#":MNEXTI 
PLOT2,26, "HRRANENENERENNENENÉENERNATENNERAAERR" 
GETMS 

cs 

PRINT :PRINT PRINT 

PRINT, "DIFFICULTE: @ À 9" 

PRINT PRINT 

PRINT,"O = FACILE" PRINT 
PRINT,"9 = DIFFICILE" 
PRINT PRINT 

PRINT,"VOTRE CHOIX 7 " 

GETPS 

IFPSC"D"ORPS>"9"THENS230 
CCeWALCPS) PRIMTCC CCeCC+1 
CC=INTCCC > 

BB=< 11-CC #10 
AA=CC+1 
RETURN 

CLS :PAPER1 : IMK3 

PRINT :PRINT:PRINT:PRINT:PRINT: PRINT :PRINT:PRINT 
PRINTOHRS 4 » 

PRINTES"J" "VOUS ETES RECALE !" 
PRINTCHR®K 4 } 

PRINT :PRINT PRINT PRINT PRINT 

PRINT" VOLLEZ VOUS JOUER À NOUVEAU 7* 
GETMS 

PRINTCHR®C 17 2CHREKC E » 

CALLeFEDO. REM CALL#FE9SB FOUR L'ORIC 1 
1FMS="0"ORMS=" 0" THENRUN 

PRINT:PRINT PRINT" À BIENTOT..." 

END 





CLS :PAPER1. INK3 


sr ph col St ue sont devenus nos si sympathiques 


PRINTES"J" “VOUS AVEZ BRILLAMMENT PASSE * 


aan OR héros gouvernants ? 


PRINT:PRINTES"J" " VOTRE PERMIS" 


COTO1ee Si vous boudez les bulletins d’information 


END 


REM DESSIN OÙ TITRE télévisés, vous risquez 
= PAPER© INK2 


ee ., fort de perdre le fil conducteur 
rame cu de leur vie privée. 

, n 70,8, . . L] 
à 26 lg get AR RENEE Un jeu de logique et d’astuce 


CURMOV118,8,8:CIRCLE 16, 1 :CIRCLES, 1! 


CURMOVE, -10, 1 :DRAW-118,0, 1 le Mastermind politique, 


CURMOV- 8,16,1:DRAN26,15,1 


CURNOV?2,0, 1 :DRAU26,-16, 1 vous plonge dans 


CURNOV3,-5,0:DRAUS,0, 1 


CRNI-S,-25, 1 :DRMI-90, -5, 1 :DRPN-20, 20, 1 le creuset en perpétuelle mutation 


CURMOV1S,-18,0 DRAN-15,0,1 CURMOV 18,8,8 DRANE,5,1 ° FT" 
CURMOVE, -5, 8. DRAUS, 3. 1 de la guilde politicienne ; 
CURMOV27 , 5,0 DRAWO,-28,1 


DPAUS, 5, 1 :DRA20, 6, 1 ORAUS, 5, 1 :DRANO, 21 , 1 et devinant 


CURMOVE , -18, 1 : CURMOV-49,6, 1 :DRAW-60,0, 1 


pe NES vase A PASSER VOTRE... le lus idement ssible 


rer INTER QUI a emmené QUI, 
sd OÙ et pour QUOI faire 


FORI=1703 


Dci euro vous toucherez du doigt 


WAIT200 :HEXT 


che eus ro la désinformation 
J. Becker la plus pure que soit. 


39 DEUST 





DT _|4 











RAR 
MASTERMIND POLITIQUE 











1 C0 ReASC(RI Fr à ©7212 THEN 610 
890 Rli=R-64:R2eR 
289 COSUB 244: PRINT ;ASCR1);" EMMENE “; :A3S=AS(R1) 











219 RY-INXS R$- 18 
329 Lac : Fr. LL: TRES 719 
sms — Rem SEE sf 100 U-2- 21€ 0 
4 : éPareT ASC ASC 
1,0 mms : - RS LENS = = # nus - ‘ 
| 128 — ere 268 RASC(RS):IF ACES OR RD72 TUEN 956 
29 REM 170 Ri-R-64 
+ REX PYRICHT 1984 MICHI NAPLEZI ET L'{ Lu )OSUB 240:PRINT L29#L$(R1) 
+, En 708 RO-INKEVS:IF Re- 
À Limrennnneanmnnnnnhttnmann nantes. , ee _ . une ‘ 
t0 n-aSC(1 F1: 2: KES 9% 








MALLLLLELRLZLIILIIL... 







2e.00000 
6.606 











Ÿ REX VER 
200 PRIX Rx À RAN l MA LLLLLELIZIIIIIIIL. 
219 ! NT r RN MONT UR k NE NE 1069 Vl=ÿ:V2e0:1F ASsAlS 
229 » F : s Ô 1F AYS-42 THEN ( 

r - ÿ zn D" : CEË LE Alt TE 
«i , _t ve = 
259 J De + - 

r CORDES ZT TT TEST TA LIT TT TT " à 

? nux . AA Ge A ‘ . 

280 REX 1138 LF Vi=é THEN 
29% CP=ÿ:5C-ÿ 149 PRINT :PRINT 
| 306 5 200 f DONS ET BIEN PLACES 

ÿ Lara * MA à a RRAN RAYMON BARRE F . d:PRIN 
N | Ta x A : Ai At ‘ " . ” 

+ aTA . . x LA LE h : ] : 

4 " : 1 " . RS ns 

ÿ Data "Das is LAFR . "2 “ALT S" 

‘ ATA MONTE x "| L'AIMER “ à x : 

* ATA 1 RESEN L SA Fr: L RAP! ER LE BON TEMP + PAIRE E MANAGE 
188 DATA EURER SUR N EPAULE" ,"FINIR LE RESTI 
DATE LELELELLELEEEEEEET TT TL LT I III TITI T TI TT TT TT 
ét … Æ 

‘ CORLEEEELEETT TT TT ST TITI III TT TT D 

” ” .. <= ” 

Ÿ N * R 
‘00 "| 1 M « KATEUR 

« RINT RIA : NN f NT AFFICHE EN PERMANENCE 

‘ .. ” .… 

, 

, 
| 0 A M LA n “ 7 
| n NKF ? ri (y 
| A 5 Q ce 

” 

: ‘ de 
” «4 - 

" ” n à . 

» PP] AINT 

q LELLELELEZLEIZEITIILIITIITT TT TT TT TT TT TUE | 1210 PRINT 


Ü RE» F1CA \ - 1229 COSUB 219 


r CLLLELLELEET TITI ITT III TITI TT TT TT TT TT TT DUT d mert 
e ot : . : -è Seÿ 
POLLELEEPTTI TITI TT TITI TT TT TT TT TU UT D TT RAR LELLELELELLLLELEELEL ELEC 

: 

e … é ex RÉATION FORx 

) Anmesssosssosssmemsscsssssesssomcsssssss CRE LELELELECECEEECOOOCOOOERREEEEEES 
"9 _ vé aie in . .... t -d h - ? B:ALA 1 EXT 

ol h C= ÿT TA NEX { 10 J=1+(9-1)eRND(1):ALS=-A$( INT 





| 4 B J h 10 1109 1=1+(9-1)*AND(1):1A28=A$S(INT(J1)) 
F A2$=A1$ THEN 1306 


", : : L 
… . … 26 A 11= 8: REAL NEï 
nu 17 2x = | 
.t : - : ” : 4 
| 4 . 
‘ + is . : 
.... ... | ,.. . 
+ ‘ : ‘ FOR Ce AINT Cu ” , 
co "TT 1R a : s ( A 180 PRINT TAB(10);"##mmmannaamananamamattanaatanaanaaté da 
16 C n co 20 NT TAB(19 « 
, gr: ” ! + 
è ARBRE LLLLLELELLLT RIT TT SLT TT ... LL A3 , e 
ÿ . ÿ var TAB LÉ . 
RER ELLE RLRELLLLLELL LTD IT TITI TT Tee . LLnT 115 : 
° à : | 
ot AS : ? Lt x S2€0 Î ‘ In wt AB 





#C14 vu .s0 ? . d R L : 
: 40 .:0 : 200 M. Nasplezes 








L'ORGUE 











(D 





















e programme d'environ 

8,5 Ko utilise les possibi- 
lités sonores de l'Oric. Le cla- 
vier de l'ordinateur est trans- 
formé en celui d'un orgue à 2 
octaves. De petites diodes 
s'allumeront sur le clavier visua- 
lisé à l'écran afin de montrer les 
touches pressées. 
De plus l'Oric simule un ma- 
gnétophone et permet l'enregis- 
trement ou la lecture d'un mor- 
ceau joué au clavier. 
Après la présentation, l'ordina- 
teur vous proposera des expli- 
cations, puis un clavier d'orgue 
sera dessiné et au bas de 
l'écran apparaîtra la question : 
?? Magneto - Play ?? 
à laquelle il faudra répondre : 
P si on veut seulement jouer un 
morceau au clavier, 
M si on veut être enregistré ou 
si on veut écouter un morceau 
préalablement enregistré, 
DEL si on veut arrêter le pro- 
gramme. 
Si vous avez choisi d'utiliser la 
fonction magnéto, on vous de- 
mandera d'indiquer le numéro 
du morceau (de 1 à 5), puis si 
vous voulez jouer le morceau en 
mémoire (taper P pour Play) ou 
si vous voulez enregistrer un 
nouveau morceau (taper R pour 
Record). 

Jean-Michel Papin 


e sur clavier. 


mettre en mémoire, 
itions stimulantes 
ce nouveau programm 


de 





24 
30 
4a 
1 
30 


284 
218 
228 
23@ 


254 


26e 







4ja 


telles sont les 





505 


([ocee 
eSsces 
À 66060c6ese 


18 GOSUH4UUE 


JB 1anñnaea 


30SU8 | 208 
GOTO28u@ 


REn 


3a : 
188 GETAS 


ro, 


Le 


‘ 
| 


DOKEH2276,4FFFF 


A=PEEK(H208) :B=A+128*k(AC838) 
THENGOTOAD 


TD(NO(E)1,]1 


IF 


225 PLOI 


IF 


PLAT3.0,0,@:nmu31C1,0C;N0, VU :MUS]C2, 
C+1,NO,U 


Gui 02 


=R : 


B«t 


NO(B) 


18 





XO(NO(B)), 
25THEN388 
248 OC=0-)#k(NO(B)>12):NO0O=NU(B]+])2*/N0(B 


308 PLATO,8,0,@ 
310 IFA=RE4QIHE \1100 





41 





= 


UR LA TOUCHE 





ouer, écouter. 


26.“ 
Oo 0e e 
; = 


228 IFC-BIMEN21GELSE 288 

3?7@ : 

38Q REM avec magueo 

3930 : 

400 NTrx INA, KJ=NO:ITzEN, K 
HFFFF-DEEKC#276) 

49) PLOIXD(NO(C) }, TO(NO(C)),4 
485 IFNOC(C)=<2SIMENOTI(NM,K)=8 


IFOx(NM, K]12TPENKeK1 1 





IFKKKTHENGGR 
438 G010208 


à nEM sans magneto 


age REn 

508 PLOITXD(NO(C)), 'UINO(C)?,4 

528 C=B 

537 601028P 

688 PLOT11,26, TROP LONG iPINC 


WA] 1 100 :EXPLODE :4n! 1100 :P [ING:UAIT20# 
610 60102888 

1888 : 

1885 REM dessin clavier 

18108 : 

1815 CLS :INK@ :PAPERG 

1828 PRINT :PRINT,CHR6(4)CHRS(22)"J"CHRS 
(22)"SClavier Musical “CHR(27)"U"CHRS(A 
) 

1038 PLO16,1,1:PLOT6,2,4 
1835 PLOT2,19,'"Magneto 
Vitesse" 

1848 FORN:488807049848S1TEP48 :POKEN, 19:P 
OKEN+],5:NEXT 

1858 FORN-11705:PLOT2,20+N,CHRS(B)+CHRS8C 


Rec Play 


48+N): td san .  2NEXT 

1955 PLOUTS,21,'Oce À La Joie" :PLOTS,22, 
Oh When he Saints 

1860 FLO128,22, l'etave' :PLOT25,25;, lInte 







nsite 








L'ORGUE SUR LA TOUCHE 






1688 GOSUE1588 

119@ FORY=-8T01) 

1208 PLOT2,Y,CHRS(9)+"2 
2: DR ee: O 

1219 NEXTY 

1226 FORY=121015:PLOTZ,Y,CHRS#(SJ+"2 $ 
9 S1 Ss1 ss! EE SU ot 

1239 NEXTY 

1248 PLOT2,16,9:PLOT3, 16, 34 

1258 FORX=41038 :PLOTX, 16, "MH" NEXT 

1268 FORY=8T015 :PLOT4, Y, 23 :PLOT39, Y, 22: 
NEXT 

1229 PLOT2,7,CHRS(S)+CHRS#(4)s" x (] 
(LE ME (+ F Cr 

1288 PLOI2,17,CHRS(9)+CHRS(4J)+" & ! & 
P Eu LT EN LT A?" 

1306 FORN: 11025 

1318 PLOTXDCN), YOCN),4 

1328 NEXTN 

1448 RETURN 

1588 : 

1514 REF affichage vitesse,octave,in'en 






35 $ J5 J5 


































site 
1528 : 
1530 PLUT34, 19, STRSIUI 2) :PLOT34,19,4 
1548 PLOT34, 22, STRS(O) :PLOT34,22,4 
1550 PLOT34,25, STIRS(U) :PLOT 34, 25, 4 
1568 RE lUrRN 
13900 : 






1318 
1928 
193a 
1350 


REM longueur du morceau NM 


1FAN-SABTHEN2804 
JF NM) =GANDNM CSTHEN:.OCNMI=K- 1 







2008 : 

2005 REM saisie commandes 

2810 : 

2828 FLO:9,26, 7° Commandes 7?" 


:PLOTE, 26,12 

2030 WAI14G8:PLOT14,26, “agne'v Piay 
2048 GETAS : IF AS <> "M" ANDAS <>" P' ANDAS © CH 
R#(1271THEN204@ 

2645 ]FAS-CHRST 127 1THEN25AQ 

285@ 1FAS:"r"1#ENAD-500 :G0T02274 











2855 AD-40v6 
2068 PLOTI2,26, Numero du Morceau 
2078 GETAS :Nt=UnL (AS) -) : TENM<OORNMD 4THE 


PLOT]:.26, Rec Play 
GE TRPS:]FRPS<)" R'ANTRPS <> "P"THEN2Q 







2095 IFRPS-'"R"IMEN2119 

2100 IFLO(NMI-GIHENPLOTI1,26; 
BEGISIRE ‘ :PING:WAI1398 :60T0207R 
2185 GOT02238 
2118 P'nT!}.26, 
2115 

2116 KEN allichage nom morceau 

2112 : 

2128 1-8 

2130 REPEAT 

2135 GE1AS:A-PEEK(425) : IFNOTTA-320RA=12 
20RA=]130R(A>G4ANNA (9) ) )THEN2135 

2136 IFA=321HENPS-" * :G0T02179 

214@ IFAS=CHRS()227)ANDI CATHENI-]-1:8s 

":G0T02178 

2158 1FAS-CHRS(13)THEN2198 

2168 B=SCRN( 411], 21+NM):1FB<>32THENBS-CH 
RS(ASC(AS)132)ELSEBS-AS$ 

2178 PLOTS:1,21+Nn,P# 

2188 IFAS<)CHRSL1271THENI=141 


NON Eh 







Nom di morceau 






















2190 UNTILAS=CHRS(13)0R1=193 

2208 FORN=ITO18 :PLOTS+N, 21+Nn, ", "2NEXT 
2218 : 

2228 60102278 

2238 PLOT11,26," Ui*esse se 
2240 MINI=,2:MAXe5 : INC=, 2 :UA=UI :YA= 19 
2258 GOSU82788 

2268 UI=UA 


2278 PLOT11,26, " Octave (8/5) s 








2288 MINI=Q:MAX=5 : INC=1 :UA=0:TA=22 
2238 GOSU827688 

2388 O=UA 

2318 PLOT11,26," Intensite (1/153 " 


2320 MINI=1:MAX=15: INC: 1 :VASU:YA=25 
2338 GOSUE2788 

2348 U=VA 

2350 PLO19, 26," 

236@ IFRP#="P'IHENRPS: "" :GOTOGAQ@ELSEK® 
8:601017@ 

2508 : 

2514 REM sortie du programme 

2528 : 


2538 CLS :rAPER? : INKO:POKE018, 3 :CALL4F8N 
8 :CLEAR 

2548 END 

2788 : 

271@ REM selection vitesse ou octave où 
intensiie 

2720 : 

2225 AS=KEYS 

2230 1FA$=CHRS( 13)TMENRE TURN 

2248 1FAS=-CHRSCS)ANDURDMIN] THENUA=UA- IN 
C:601022?8 

2250 1FAS=CHRS(9)ANDUA <MAXTHENUYA= VAT INC 
:60102?70@ 

22768 GOT02725 

2220 Un=iNT('Ak1@+.88@)1/18 

2225 B$=-HIDS(STRS(YA), 2) 

2288 PLOT25, YA, 

2785 PLUI35, Yh,BS 

2230 60102725 

3068 : 

3001 RE magneto joue 

3002 : 

3042 RENM recherche plus pet 
nm 

3084 On=7 :FORN=-@TOLOCNM) : 1FOTX(NM.N] On 
THENOM=OT + (NM, N) 

3085 NEX1 

3812 FORN=@TOLOCNN) 

3015 NO=NTæCNM, N2—12#CO0Tx (NM, ND2 0) :PLO 
TXDCNO), YOCNO);, 1 

3020 1FOTxCNM, N)=8TFENPLAYS, 8, 6, 9 :G0103 
e5se 

3825 0Ë=01r CN", N)+0-ON:NE =NTx (NM, NI 
3030 PLAY2,0,8,Q:MUSIC1,0E,NE, U:MUSIC2, 
OE+],NE;,V 

3858 LAITODxCNM, NJ/UI 

3051 IFNM=GO0RNM=]THENPLAYA, 9,0, 

3055 PLOYXDCNO), YOCNO), 4 

2868 NEXTN 

3078 PLAY6,9,0,@ 

310@ GOTO2@ue 
4080 : 

4810 REN ‘itre 
4828 : 

4925 Es-"ORGUE" 
4820 PAPERA : INK4 :MIRES :PAPERA : INK] :POKE 
618,18 

4848 1=1:FORA=]105:2=#9820+ASCCNIDSCES, 
f,1))2%e 

4958 FORC=8TO? :0(C)=PEEK(B+C) :NEXT :E=22 
:FORC=0T04 :FORF=0T0? 

4060 G=D(F ) :G=(GANDE JE :CURSETA4&42+CX6- 
12,F48+70,3:IFG=-OTHEN4OBGEL SE 1 = 

4870 FILLB,1,163:CURMOU), -9, 3:FORH=0TO? 
:0RAU-8, 6, 1 :CURMOUV6, -5, 3 :NEXT :G0T04 108 

4088 1F1=11HEN4108 

4898 CURMOUS, G, 1 :F1 RH=@TOS :DRAU-5, 5, 1 :C 
URMOUE, -5, 1 :NEXT : [=] :CURMOUG, 8, 2 

41808 NEXT :E=£/2:NEXT :NEXT 

411A Es="par Jean Michel PAPIN" 

4128 CURSE156, 170,3:FILLS,1,7:CURSET60, 
178,3 

4138 FORNs=]TOLENCES)] 

4148 CHARASC(MIDS(ES, A, 12),0, 1 :CURMOUB, 
@,3:NEXT 

4168 WAITS@R :TEXT : INK4 :PAPER? :CALLAFBD@ 


i‘e octave 


[orgue] 





4178 : 

4188 PRINT :PRINT PRINT :PRINT "You 'ez-vou 
s des explications 7" 

4138 GETAS : IF AS €> "O"ANDAS © "N" THEN 198 
4195 POKE618, 18 

4208 IFAS="0"THENGOSUBS5008 

42108 CLS 

4220 PRINT :PRINT :PRINT :PRINT :PRINT :PRIN 
T:PRINT,, "Patience..." 

4239 PRINT:PRINT"Je charge des donnees. 
4248 RETURN 

secs : 

9019 REN explications 

5020 : : 

5038 CLS:PRINT 

5848 PRINTSPC(12)CHR8(4)CHRS8(27)"S"CHRS 
(22)"J0 r g u e "CHR#(27)"W"CHRS#(4) 
5858 PLOT:@, 1, 1 :PRINT :PRINT :PRINT 

5068 PRINT" Ce programme transiorme | 
e clavier” 

5028 PRINT"de |'ORIC en celui d'un orgu 
e à deux octaves,":PRINT 

5088 PRINT" le petites diodes s'allum 
eront sur” 

5090 PRINT'"'Ie clavier visualise a l'ecr 
en afin" 


5108 PRINI"de montrer la touche pressee 
+" PRIN: 

5114 PRINT* De plus l'ORIC peut fonct 
tonner en" 


5128 PRINT"magnetophone et vous enreqgis 
tirer." 

5130 PRINT :PRINT 
5148 PRINT" A 
o-Play 72" :PRINT 
5150 PRINT'Repondez : :PRINT'- P si + 
ous desirez jouer sans etre” 


le question : ?? Magnet 


5:55 PRINI enregistre’ 
5168 PRINT - M si vous desirez ette € 
nreoistre 


5170 PRINT'- DEL #: vous voulez orreter 
5188 PLU, 2,20,1:PL016,20,2:PL076,21,2:F 
L012,22, 1 :PLO16, 22,5 

5198 PLO12,23, 1 :PLOT#, 23, 6 :PRINT 
5200 PRINiCHRS(27)'S'CHRS(271"E 
continuer appuyez sur SPACE" 

5218 GETAS:IFA$CD"  TFENS218 
5228 CLS :PRINI 
5238 PRINT S, 


rout 


vous avez cho si le me 


gueto,on" 
524@ PRINT':rous demandera j'indiauer le 
numero" 
5250 PRIN''du morceau, PUIS Si Vous vou 
2" 


5260 PRINT" l'enregistrer" CHR#(27])"BREC" 
CHRS(22])'"Dou i'ecouter' CHR$S(27)"APLAT." 
5228 PRINT :PRINT Vous pourrez alors 
eventuellement” 


5280 FRINT'selectionner La vi‘esse de ! 


écture;, 

5299 PRINT ''octave la pius basse du ci 
avier ei 

5398 PRINT l'intensite sonoi@. :! RINI 
5318 PRINI' Pour cela, utilisez 1es f 
teches de” 

5320 PRINT “eplacemen* gauche e* d10,°e 
» Puis" 

5330 PRINlT'usl.dez voire chaix en appuy 
ant sur "CHRS(221' ERETURN. 


5349 PRINI'PRINICHRS(221'A  Remaraues 
tIPRIN: 
5368 PRINI 

e peuvent” 


5320 PRINT exceje! 


1.08 Morceaux enregis'‘res n 


508 no'es (à mo.ns « 


e changer lo Ligne léib8 du P109r0omme), 
5388 PKINT' Vous pouvez enreais'ttier e 
n tout 5" 
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12125 : 
12130 DATA4,12,5,2,60,12,2:2:9: 12511125 

12:2:14:12,:15:2:160,12,12:2:19:127, 21, 127 
12148 DATA22,7,24,12,25,2,26,12,29,12,2 

0,7,3112, 32:71 34, 12:35:27: 36,17, 19,2 
12188 : 
12198 RE Ode à la 

; 12208 
448 PRINT . términer Le 4 3149 REM tongueu “aux 12216 DATA4,5, 


n 
+ 


b 1 B — & D. 2 
La 
ou » 


ue : à à 4 e 4 
1 Ex 02 : 54 4,4, 514 
5458 PKIN] 159 


‘6 


oubliez pas d'appuyer si 8178 MIMNTr 4, KK), 2(4,KK),.NE (4, KK * 14» 554: 
24609 PRINICHRS(22)"ASPACE. In ñ ' e1Ec 12238 DATA4,5 
3308 PRINT HRS(22]"Mor ] Ç G REN mise « nee € ‘ 2 wot SUP EE PE 
NT ; ‘ » | ’ ' 4 1‘. 12248 DAÏA4, 3 
1218 PRINI eseruvez 2e ' 0200 : 10»2:4,5,4,4,1, 
OYCéaux à 18216 @)=s 12258 DAIA4,5 
5520 FRINl'des musiques au tes bio: 18220 FORI=07065 :READOE , NE , D: 0,1) 14,5:8,4,5,4, 
separees'":FRINT"'les unes des autre :N 2, LINE :( 6,1) INEXT 12268 DATA4,5,4,4, 
2230 PRINT :PRIN] F 

5548 PRINISPC(I1a 
e Maest\ 9 


. & KL) à 


LU + O + 


LD) & à à b b b » 


& LU à LU 2 — à Q à 
& © 2» 


8 
4 
l; 
4 
3; 
4; 
8, 


Bb D b 2 2 bb b 2 b bb L 
co 


Où à 
+ N) © 


» O 5 Q  & (1 & QU) à Un & 
5 L 5 » 


s N 
D — 


5550 PRINT x 
HRS(27)"Brppuye Ê ’ 12008 : 12314 DAIAB,1,4,4,1,4,4, 
ciAs 2818 REM CODES JUPES 1%1114:4:5,4,4,6,4,4,8,2 
328 UAIN4,5 
2:8,4,3,20,8 
12338 DAIA4, 
28,4,5, 
DATA4,5, 
1,4,1,1 


NA1AB,1,4,4,1,4,4,: 
1, 3,3,3,3,3,3,3,0,8,0,8,€ 


13,0,04,,0,0,@ 


A! 12,12,12,12,12,12,12,8,0,1 


2: 38, 36,12,8,8,9,98,24,60,00,24,0,@ 

12188 DA1A8,0,6,15,15,6,8,0,0,@, 3,7, 2,3 

,8,9,8,8,8,32,32,8,0,0 : : 

12118 : 23 C M4,4,1),4,5, »8:4,3,8;,4, 
12128 REM POSITJONS DIODES “dass E M. Papin # 


FACE A FACETIE 
AVEC 
PUISSANCE 4 


Un exercice instructif en diable, mais qui portera ses fruits : 
ce Puissance 4 est un bien rude adversaire ! 

Ce programme d'environ 7Ko est écrit dans un Basic 
très standard, sauf en ce qui concerne le hisme 
haute résolution spécifique de l'Oric : il suffira soit 
de l'adapter, soit de négliger certains détails 


pour le charger sur d’autres machines. 
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En dE à Me Pn # 


a partie se déroule sur un damier 4 x 4 x 4. 

Chaque joueur à tour de rôle indique son 
coup par une lettre et un chiffre, et les pions 
viennent s'empiler au fond de la boîte cubique 
ainsi formée. Le premier joueur qui parvient à 
aligner 4 pions est le vainqueur. 


1] HINEM#93708 

18 GOSUB6888 ?’REGLES 

50 DIMA(4,4,4),2(4,4),GA(4,4),N 28) 

108 GOSUB5688 ©? DAMIER 

120 FORX=]7T04:FORY=1104:2(X,Y)=@:GACX, Y 
)]=0:FOR2=1704 :ACX,Y,Z2)=@:NEXT2Z,Y,X 

138 FORA=@TO28 :N(A)=@ :NEXTA 

140 NC1)=,@081:NC2)=.01 :N(3)=.1:NC4)=1:N 
(5)=18:N(10)=-1008 :N(15)=1008 :N(20)=100808 
158 NC=8 

168 IFNJ-2THEN4008 

170 1FO0J=2THENXM= INT C(RNOL 1 2%4+ 1 ) :YM=INT 
(RNDC1)%4+1):G0T0700 

308 REM 

3108 REM COUP JOUEUR 

328 REN 

325 NC=NC+ 1 : IFNC=65STHEN2508 

338 PRINT,"A vous de jouer..." 

340 INPUTAS :L=LENCAS)J:X=ASC(LEFTS(AS, 1) 
)-64 :Y=ASC(RIGHTS(AS, 1 ))-48 

358 1FL © 20RXÇ10RX) 40RY <10ORY>4THENPRINT 
"Entree incorrecte ©" :WA]1208:601033@ 
368 IFZCX, YJ=4THENPRINT :PRINT"“Colonne c 
omp lete 9? Rejouez ...":WAIT288:6G0T0348 
3278 2CX,Y)=2(X, YD+1:ACX,Y, 2(X, Y))=1 


" 388 

















GOSUB5568 ’AFFICHAGE PION 
338 IFGA(X, Y)=1THENZ=2(X, Y) :G0OTN 2508 
208 REM 

210 REM COUP ORIC 

220 REN 

725 NC=NC+1 : IFNC=65STHEN2508@ 

238 n=0 :CGS="N" :06$="N" :SP=2000 
248 PRINT :PRINT" A moi de jouer 2":WA 
]T28@ :PRINT" Un instant, Je reflechis, 








245 IFNC=2THENXM= INT (RND 1 )k4+1 ) :YM=INT 
CRND(12%4+]):UA]TS88:60T0798 

250 FORX=]T04:FORY=1704 :GACX,Y)=0:7=@ 
768 IF2CX, Y)=4THEN?8@ 

2270 E=2(X,Y)+1 :GOSUP 1008 

780 NEXTY,X 

298 X=XN:Y=YN:2X, YI=Z2(X, Y)e1 

808 ALX,Y,2CX, Y))=S:PRINT :PRINT"Je joue 
en "CHRS(64+X])Y :G0SUBSS568 

81@ ]FOGS="O"THENZ=2(X, Y) :60102500 

820 WAIT200 :60T10308 

1008 REN 

1818 REM SOUS-PROGRAMME REFLEXION 

1028 REN 

1025 REM DANS UN PLAN 

1026 REM 

1030 S=@:FORAY=]TO4:S=S+A(X, AY, 2) :NEXTA 
Y:C1=0 :C2=] :C3=0 :60SUBSP 

1048 S=8:FORAX=]104:S=S+A(AX,Y,2):NEXTA 
X:C1=1:C2=0 :C3=0 :GOSUBSP 

:058 IFX=YTHENS=@ :FORA=17T04 :S-S+ACA,A,2 
1 :NEXTA:C1=1 :C2=] :C3=0 :60SUBSP 

106@ IFX=5-YTHENS=0 :FORA=1T04 :S=S+A(A,5 
A; 2):NEXTA:C1=1 :C2=-] :C3=0 :60SUBSP 

1110 REN 

1128 REM DANS L'ESPACE 

1138 REN 

114Q IF2<) 1ANDZ © 4THEN125@ 

1150 IFX=2THENS=0 :FORAX= 17104 :S=S+ACAX, Y 
» AX) :NEXTAX:C1=1] :C2=0:C3=1 :GOSUBSP 

1168 IFX=5-2THENS=0 :FORAX= 17104 :S=S+A(AX 
» T1 S5-AX) :NEXTAX :C1=1 :C2=8:C3=-] :GOSUBSP 
117@ IFY=2THENS=0 :FORAY=1T04 :S=S+ACX, AY 
» AT] INEXTAY :C1=@ :C2=1] :C3=1 :60SUBSP 

1180 IFY=5-2THENS-0:FORAY=]TO4 :S=S+A(X, 
AY, S-AY) :NEXTAY :C1=80:C2=-1 :C3=1 :G0SUBSP 
1138 IFX=2AN0Y=2THENS=0 :FORA= 1704 :S=S:A 
CA; A,AJ:NEXTA:C1=1] :C2=1 :C3=] :G0SUBSP 
1208 IFNOT(X=5-2ANDY=5-2)THEN121@ 

1205 S=0:FORA=]TO4 :S=S+A(5-A, 5-A, A) :NEX 
TA:C1=-1 :C2=-1 :C3=1 :GOSUBSP 

1218 IFNOT(X=5-2ANDY=2)THEN122@ 

1215 S=0:FORA-17T04 :S=S+A(S-A,A,A) :NEXTA 
:C1=-1] :C2=1 :C3=] :GOSUBSP 
1228 IFNOTCX=2ANDY=5-2)THEN1240 











1225 S=0 :FORA=17104 :S=S+ACA,5-A, A) :NEXTA 
:C1=1:C2=-1 :C3=1 :GOSUBSP 

124@ REM 

1250 IF2 <> 2AND2 > 3THEN1350@ 

126@ IFY=2THENS=0 :FORAY=1TO4 :S=S4+ACX, AY 
> AYJ :NEXTAY :C1=0 :C2=1 :C3=1 :GOSUBSP 

127@ IFY=5-2THENS=0Q :FORAY=1T04 :S=S+ACX, 
AY, 5-AY) :NEXTAY:C1=0@:C2=1 :C3=-1 :GOSUBSP 
1280 IFX=2THENS=0 :FORAX=1T04 :S=S+ACAX, Y 
» AX)J INEXTAX :C1=] :C2=-0 :C3=] :GOSUBSP 

1298 IFX=5-2THENS=0 :FORAX=1T04 :S=S+ACAX 
» Ÿ1 5-AX) :NEXTAX :C1=1:C2=0 :C3=-] :GOSUBSP 
1308 IFX=YANDY=2ZTHENS=0 :FORA=1TO4 :S=S+A 
CA; A,A):NEXTA:C1=1] :C2=1 :C3=1 :GOSUBSP 
131@ IFNOTCX=YANDY=5-2)THEN1320 

1315 S=@:FORA=1TO4 :S=S+ACA,A,5-A) :NEXTA 
:C1=1:C2=1:C3=-1 :GOSUBSP 

1320 IFNOT(X=5-YANDY=2)THEN133@ 

1325 S=0:FORA=17T04 :S=S+ACA, 5-À, 5-A) :NEX 
TA:C1=1:C2=-1 :C3=-] :GOSUBSP 

133@ IFNOTCX=5-YANDY=5-2)THEN1348 

1335 S=0 :FORA=17T04 :S=S+ACA,5-A, A) :NEXTA 
:C1=1:C2=-1:C3=] :GOSUESP 

1340 REN 

1350 REM ORIHOGONALEMENT ALU PLAN 

1360 REM 

13270 S=0 :FORAZ=1T04 :S=S+ACX, Y, AR) :NEXTA 
8:C1=0:C2-0 :C3=1 :GOSUBSP 

1400 RETURN 

2000 RE 

2010 REM SOUS-PROGRAMME ANALYSE 

2020 REM 

2025 IFOG$='"O0"THEN2090 

20308 IFNCS)=.1THENGACX, Y)=1 :CG$="0" :Yn= 
Y:XM=X 

2048 T=T+N(CS) 

2050 IFT-INT(T)>=.@2ANDCG$ ©) "O'"THENXM=X 
:YM=Y :CG$="BIENTOT" 

207@ IFCG$="N"'ANDTD>MTHENMET : YM=Y :XM=X 
2080 1F1>=1Q00THENXM=X : YM=Y :0G$="0" 
209Q RETURN 

2508 REM 

2510 REM FIN DE PARTIE 

2520 RE 

2530 IFNC=65STHEN3150@ 

2548 IFOG$=' O'THENPRINT :PRINT'"'Desole..,. 
mais je gagne 2" 

2550 IFOG$="N"THENPRINT :PRINT'"'Bravo, vo 
us avez gagne 2" 

2555 WAIT308 

2560 SP-3008 :60SUB1008 

3000 RE 

3010 REM RECHERCHE LIGNE GAGNANTE POUR 
AFFICHAGE 

3020 REM 





303@ IFS <> 4ANDS > 28THENRETLIRN 

3032 IFNJ=1THEN3G4@ 

3035 PRINT'"'Bravo ‘"NO$(0OJ)" 0,,,.Uous gag 
nez9" 

3040 POP :POP 

3058 REPEAT :X=xX-C1 :Y=Y-C2:2=2-C3 

3868 UNTILX=QO0ORY-=-G0R2Z=0@ 

3061 X=X+C1 :Y=YrC2:2=2+C3 

3065 0=2:FORK=1T02:0=0+1] 

3078 FORC=@107 : IFC=30RC=SORC=6THEN311@ 
3075 NO=1 

3080 FORN=G103:X2=X+C1XN:Y2=YrC2XN:22=2 
+C3XN 

3098 CURSET38XX2+12X(Y2-1),236-9XxY2-47x 
22, 3:FILL6, 1,0 

3095 NO=NO+2:MUSIC],0, NO, 9:WAITS 

31@@ NEXIN:WAIT108 

311@ NEXTC:NEXIK 

3115 PLAYO,0,0,0 

312@ FORN=-Q103:X2=X+C1XN:Y2=Y+C2XN:22=2 
4C3XN 

313@ CURSET30XX2+12X(Y2-1]1),236-9XxY2-42X 
22, 3:FILL6,1,0 

314Q NEXTN 


3150 IFNC=6STHENPRINT :PRINT" Match nu 


..":PRINT"Une autre partie s?impose® 


3155 HAIT208:CLS 

3160 A$="XX Voulez-vous rejouer 7?  ** 
51/4 X=U:PRINI :REPEAT 

3180 PRINTRIGHTS(AS,37-X)+LEFTS(AS, X) :W 
A1118 

3182 PRINTCHRS(11); 

3185 X=X+]:IFX=381HENX=0 

3190 BS-KEYS :UNTILB$="O"ORBS="N" 

3208 IFB$=-"0"THENGOSURE6 130 :G0T0188 
321@ CLS:PRINT, "Au revoir.,..":WAIT388:7 
EXT :POKE618,3 

3215 CALL#F8D@ 

322@ END 

4000 RENM 

4818 REM À 2 JOUEURS 

402Q RENM 

4025 OJ=1 

403@ NC=NC+1 : IFNC=6STHEN3S@E 

4048 PRINT :PRINT" À “NOS(0J)" de jo 
uer 9" 

4050 INPUTAS :L=LENCAS):X=ASC(LEFTS(AS, 1 
))-64:Y=ASC(RIGHTS(AS$, 1))-48 

406@ IFL <> 20RX <10RX) 40URY <IORY> 4THENPRIN 
T'Entree incorrecte 2":WAIT200 :GO0OT0404@ 
4070 IF2CX, Y)J=4THENPRINT :PRIN]I "Colonne 
complete 9 Rejouez ...'":WAIT200 :60T0405@ 
4088 2(X,Y)=2CX, Y)+1:2=2(X, Y):ACX, Y,è)= 
—1X(0J=1)-5Xx(0J=2) 
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4090 GOSUB5508 AFFICHAGE PION 

4100 SP=3008 :60SUB1009 

4110 IFOJ=11HENOJ=2ELSEOJ=1 

4120 GOT04830 

5888 REM 

5010 REM DAMIER 

5020 REM 

5030 HIRES :PAPER3 : INK4 :POKE4#268, 1@ 

584@ FORA=@103 

5058 CURSET66, 1@+47XA,1. 

5060 FORB=0104 :DRAW120, 9, 1 :CURMOU- 132,9 
» 1 :NEXTB 

5070 NEXTA 

5080 FORA=-QGT03 :CURSE166, 1014?XA, 1 :FORB= 
OTO4 :DRAW-48, 36, 1 :CURMOU?8,-36,@:NEXTB, A 
5098 CURSET36, 190, 3:FORA=0103 :CHAR651A, 
8, 1 :CURMOU30, 0, 3 :NEXTA 

5124 CURSET13,179,3:FORA=GTO3 :CHAR49+A, 
@, 1 :CURMOU12,-9, 3:NEXTA 

5110 FORA-402001048207 :READX :POKEA, X :NE 
XT :RESTORE 

5128 DATAG,15,31,63,63,62,60,0@ 

5125 CURSET200, 60,3:FILLS, 1, S:CURSET21@ 
»,60,3:CHAR33, 1,1 

5138 CURSET1?0,75,3:FILLE,1,5:CURSET180 
73 

5149 FORN=1TOLENCNOS( 1 J) :CHARASCCMIDSCN 
O$C1),N,1)),0, 1 :CURMOU?,0, 3:NEXTN 

5145 CURSET200, 118,3:FILL8,1,6:CURSET21 
8,11@,3:CHAR23, 1,1 

5158 CURSET1?0, 125,3:FILL8,1,6:CURSETI8 
8,125,3 

5160 FORN-1TOLENCNOS (2) :CHARASC(MIDSCN 
O$(2)1,N,11)),0, 1 :CURMOU?,0,3:NEXIN 

5170 RETURN 

5400 REM 

5500 REM AFFICHAGE PION 

5505 S0-400 : IFNC/2=INT(NC/2)THENC=6ELSE 
C=S 

5518 FORN=4102(X, YISTEP-] 

5520 X1=30XxX112XY 6:Y1 -235 -9XY -47XN 
5530 CURSETX1+6,Y1+1,3:FILL6, 1, 4 :CURSET 
X1-6,Y1+1,:3:FILL6; CPE a 

5549 CURSETXI , Y1, 3:CHAR33, 1, 1 : SOUND] , SO 
8 :PLAYI,0,1,4@0:WAITIG 

5550 S0=50150 

5560 IFNOZCX, YITHENFILLS, 1,64 

5578 NEXTN 

5580 RETURN 

6808 RENM 

681 REM REGLES 

6020 REM 

6038 HIRES :PAPERA : INK? :POKE 4268, 1@ 

6035 INK? 

6040 A1$="PUISSANCE 4":A2$-"EN TROIS 
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MENSIONS 2":A3$=-"Par Jean Michel PAPIN" 
6045 A4S="XXKKKXAKKKXXT 215$ =" XKKAKKKKEEX 
KXXKKKKEXEKX" 

6050 CURSET?0,406,3:A$-A1$ :GOSUB89200 
6068 CURSET35, 90, 3:A$-A25$ :G0SUB8000 
607Q CURSETS0, 150,3 :A$-A3$ :G0SUB8000 
6889 CURSET?0,55,3:A$-A4$ :GOSUB8008 
6090@ CURSET35, 105,3:A$=ASS$ :G60SUB88008 
6100 FORN=25101]25STEP2 :CURSET228,N,3:FI 
LL2, 1,29 :CURSETIB,N,3:FILL2,1,1 

611@ CURMOUG, -2,3:FILL2,1,19 

612@ WAITIB:NEXTN:WAIT10@ :PRINT :PRINT, " 
Joli snon ?2,.,":WAIT300@ 

6134 REM - 

614Q TEXT : INK4 :PAPER3 :POKE4268, 1@ 

6158 PRINT :PRINTSPC(I@)CHR$S(4)CHR$S(22)" 
J'CHR$(27)"APuissance 4"CHR$S(4) 

616@ PRINT :PRINT :PRINTSPCC12)"XXkkxkXXXkk 
XX'':PRINT :PRINT 

6170 PRINT" Le jeu consiste a aligner 
4 de ses" 

61275 PRINT'pions sur un Jamier 4%x4x4 ,L 
a portie" 

618@ PRINT'prend fin des que l’un des j 
oueurs a" 

6185 PRINT'reussi un alignement 
] 

619@ PRINT" Vous pouvez jouer contre 
i’ORIC C1)";:PRINT"ou à 2 joueurs (2)." 
6195 PRINT'Quelle option choisissez-vou 
s 12297" 

6200 GETAS$ :NJ=UAL CAS) : IFNJ © 1 ANDNJ © 2TH 
EN6200 

621@ PRINT :PRINT,;,CHR$(133)"Tirage au so 
né “+27 

6215 IFNJ=2THENG2S@ELSE :PRINT"'Choisisse 
z entre pair et impair: "; 

622@ G'Su38200 

623@ GOT063067 

625Q K=PEEK(4#276) :IFINT(K/2)=K/2THENKS- 
“droite” :60106260 :ELSEK$="9gauche" 

626@ PRINl'Que le joueur de "K$" choisi 
sse'":PRINT'entre pair et impair :"; 

627Q GOSUB8200 

630@ PRINT :IFNJ=2THEN635@ 

631@ PRINT'"'Uotre prenom (8 lettres maxi 
mum)?" 

632@ GOSUB8100 :NO$(OJ)=A$ 
633@ NO$(-1x(0J=2)-2X(0J=1))=" 
634@ G0T06380 

635@ PRINT"'Entrez vos prenoms (8 lettre 
s maximum)"; 
636@ PRINT" 
O$C1)=A$ 
637@ PRINT" 


. ":PRIN 


ORIC" 


"; :60SUB8100:N 


Joueur 1 


Joueur 2 “; :G0SLUB8188:N 








0$(2)=A$ 

6380 WAIT308:CLS :PRINT :PRINT :PRINT, "Bon 
ne chance,,,'":WAIT300:PAPERG 

6390 RETLIRN 

8000 REM AFFICHAGE D'UN MOT EN HIRES 
801Q@ FORN=1TOLEN(CAS) :CHARASC(MIDS(AS,N, 
1)),0, 1 :CURMOUS, @, 3 :NEXTN 

802@ RETURN 
8100 RENM 
JOUEURS 

8105 PRINTCHR$S(129); . 

8116 INPUTAS :REPEAT : IFLEFT$S(AS,1)=" "TH 


TRANSFORMATION DES NOMS DES 


ENAS$S=RIGHTS$SCAS$S, LENCAS)-1) 


8120 UNTILLEFT$(A$,1)0©' 
HENAS$=LEFT$S(CAS$,8) 

8125 L=INT(CB-LENCAS$S))/2) :IFL=@1HENS14@ 
8130 FORN=QTOL :A$=" "+A$:NEXTN 


: JIFLENCASJD>BT 


814@ RETURN 

8208 REM TIRAGE AL SORI 
8205 GETAS:IFAS ©) ''P"'ANDAS ©) " I'THENS205E 
LSEPRINTCHRS(128)A$ 

821@ N=PEEK(#H276) :FORK=11ON:KK=RNDC 1) :N 
EXT 

8220 PLOT4,19, 1 :PLOT10, 19, 139:PLO15, 19,2 
É | 

8230 FORK=1T07:KK=INT(RND(1)%1@) :PLOT6, 
19, STR$CKK) :WAITSO :NEXT :PING 

8240 IFCA$S="P'"'ANTKK/2=INT(KK/2))0RCAS=" 
]'"ANDKK/2 €) INTCKK/2))THENOJ=1ELSENJ=2 
8245 IFOJ=1ITHENAS= "premier" :0J=]1El SEAS- 
"second" 

8250 PRINT :PRINT :PRINT' 
on "AS" 2?” 

826@ RETURN 


Vous jouerez 


J.M. Papin 





SUR LE STRATEGRILL 





BEST Li 





lle magique 
vue à travers l'écran d’un ordinateur : 


de la finesse, et pas mal 


Un carré gamique, c'est une 





var Laurent VOIRY 


Initialisations 


de réflexion en perspective, contre un ue 


100 CLEAR(200) 





adversaire plein d'ardeur et fin stratège. 
- 47 
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oo 


PASSEZ SUR LE STRATEGRILL 










110 DIM TJ(S:5) : DIM PT(2) 
120 \ÆS=CHRS(170) : REM Barre verticale (semi-ararhiaue) 
130 HOS=CHRS(131) : REM Barre horizontale (semi-graphiaue) 
140 RES-CHPS(B) : REM Recul du curseur avec effacement 





















150 REM 
40 REM module de choix de ia ariile ce desart 
270 RE “ee 
:80 REM 


190 FOR I=1 TO 5 

200 FOR J=1 105 

210 NRND(9) 

220 IF RND(SD) <= 25 THEN TJ(1rJ)eN ELS TJ(1rJ)æ-N 
230 NEXT 





260 PRINT ” (o/n) 
: 1F Re” THEN 270 

280 1F RS=N" OR RE=’n” OR Ré="0” OR R&="0" THEN 290 ELŒ 270 
290 PRINT RS 

300 IF RS="N" OR R&=/n" THEN 190 


REM Recherche du lier cous machine 


REM mme 
Je cherche..." 


PRINT ” Je joue en { ”iCHRS(EE+A) i" ,:8;#)#3 
RS=INKEYS : IF RS="7 THEN 380 

x PT(D)=TJ(A:B) : Tj(ArB)eD : ClsA : CJ=B 

400 GOSB 1770 

PRINT : GOSB 1070 

REM 

REM Boucie erincisale 

REM rc 

REM 

FOR Z=1 T0 Z 

470 GOSUB 1480 : IF Fi=l THEN 600 ELS GOGB 1310 

480 CIl=A : CJ=B + PT(L)=PT(1)+TJ(A:B) : TJ(A:8)=0 

490 GOSLB 1770 : PRINT : GOSB 1070 

500 GOGB 1480 : IF Fi=1 THEN 600 

510 PRINT : PRINT 

S20 PRINT ” 

530 GS 70 

540 PRINT ” Je joue en ( “CHR (SG+A) 5" Bi)"; 

S50 


AHSEUERE 
À 
x 
3 
4 


EE 
00 













EGES 


je cherche... “5 






CimA : CJjeB : PT(O)=PT(D)+TJ(ArB) : TJ(A:B)=0 
SE RS=INKEYS : IF Ré=/” THEN SéD 
S70 GOSB 1770 : PRINT : GOSB 1070 
580 NEXT Z 








REM 
REM Fin du jeu. Qui a sasre ? 


GiD PEN manner 







529 ; 

430 PRINT : PRINT # “+ 

660 1F PT(D)>PT(1) THEN PRINT "J'ai sagne. herre :* 

266 :F ST(D)aPT(1) THEN PRINT “Match null (comme vous LR Ld 
&e0 

575 

£e0 







IF PT(O)<PT(1) THEN PRINT “Je vous ai iaisse sasner !" 
PRINT ” On en retait ure (o/n) 7”; 
RS=IAKEYS : IF R&="" THEN 68Ù 

690 :F RS="0/ OR RS="/c! THÆN 70 

700 1F Ré="N" OR RS=/"n” THEN CLS : END EL C-a 





















710 REM 

725 EN — mm SOUS 2rP0rammeS 
730 RE" 

TRÈ REM rm — 
750 REM Sous-orcaramme de “ecnercne macn'ne 
7hO REM === mm 
770 REM 

785 S=-779 

790 FOR isi T0 3 

AOQ :f TJ(Cir:)e0 TrEN 90 

810 Môe-999 


FOR si 10 5 
1F Tj(Clrj)=0 OR Jai THEN 85 
IF TJ(ClrJ) > MA THEN MAT j(Ci 5) 





R2S 
630 
SC 

so !F TJ(J:1)=0 OR JaCl THEN O7 

SD if TJ(Jr1) > MA THEN MeTJ(Ji1) 

870 NEXT 

_ 1F Môm-999 THEN GaTJ(Cl,1) ELSE G=Tj(Cl:1)-MA 
700 

910 

720 

730 
















IF G > CM THEN GMeG : AsCI : Be: 
1F TJ(1»CJ)=0) THEN 1000 
Mâ=-999 
FOR J=i T0 S 
IF Tj(lrJ)20 OR J=CJ THEN 7SÛ 
740 1F TJ(lrJ) > MA THEN MAaTJ(] 19) 
IF TJ(JjrCJ)n0 OR I=j THEN 770 
IF Tj(JrCS) > MA THEN MeTJ(rCs) 




















Tit1rCJ) ELSE G=TJ(1/CJ)-MA 
GMeG : Az! : BC. 


U-CHRS(bA+I)," MES" #5 


15 FOR j=i TO = 
1:87 7 IC! AND JsCj THEN FRINT * # w; + GOTO 1210 


1190 IF TJ(lsJ)eD THEN PRINT ” # 
°200 PRINT TJ(lrjhi" * 

1210 NEXT - 

2220 PRINT : PRINT ” ": 
IF i < 5 THEN PRINT LES 


#ij x GOTO 121€ 


DO RE mm 


1280 REM Sous-erosramme de saisie d'un cous va! '0e 
2200 EM = 

1300 RE 

1310 PRINT : PRINT 

1320 PRINT ” Verre cour | A-DE ) 12-350 
1330 RS=INKEYS : IF R&="" THEN 1330 

+240 ]1F (R$>="A" AND RS<=/E") OR (RS>= "a" AND Rs(="e") 
TrEN 130 E-Æ 1330 

1250 PRINT #{ M:RS" , ” 

1360 PaASC(RS)-64:1F Pré THEN deP-32 ES AP 

1370 RS=INKEYS : IF R$="” THEN 137Æ 

1280 1F VAL(RS) < 1 OR VAL(RS) > S THEN 1370 

1390 PRINT RS” }/: : BeVAL(RS) 

1600 1F (A=CI OR B=CJ) AND TJ(A:B) <> D THEN RETURN 
1410 FOR Usi TO 9 : PRINT RES: : NEXT L 





1460 REM 
1470 REM 

1480 F1=0 

1490 FOR U=i TO S 

1800 IF TJ(U,CJ) <> D ŒR TJ(C1:U) <> D THEN RETURN 
1510 NEXT U 

1820 Fiei : RETURN 

1530 REM : 

DO RM me 
1580 REM Sous-orogramme de recherche du ler cour machine 
QUO RM —— mm 
1570 REM 

«580 REM Premier cou» macnine 

15970 GM=-997 

1600 FOR I1=1 T0 S 

1610 FOR J=i TO 5 

1620 Me-777 

1630 FOR Ks=!1 TO 5 

1640 IF TJ(Ir:K) > MA AND K © j THEN MeTJ(l:K) 

1650 IF TJ(K:J) > MA AND K <> I THEN MAaTJUK:J) 

1660 NEXT K 

1670 GaTJ(lrJ)-M8 

1680 1F G > GSM THEN GMaG : Ami 1 Bey 

1690 NEXT | 





ef 


1740 REM Sous-rooramme d'aftichase des ooints et du centre 
en 


1750 REM 

1760 REM 

1770 CLS : PRINT “Moi :#3PT(0); 

1780 PRINT ” CENTRE : ( iCHRS(E44CI) 50 #CJi# 
1790 PRINT # Vous :”:FT(1) 


1800 RETURN 









S'éch 








er d’un labvrinthe en un minimum 
‘placements. Et supposons maintenant que les 
murs se referment derrière vous... 


c'est fou, non ? 


L e programme est court et 
n'utilise que des instructions 
standard : il convient également 
aux ordinateurs de poche. Le 
labyrinthe peut être modifié en 
changeant les valeurs des 


lignes de 

DATA : 3 
représente la 
sortie, 1 un mur, 
0 un corridor. Si 
l'on inclut ces 
données dans 
un tableau X$, 
on perfectionne 
le programme 
en lui faisant 
générer 
aléatoirement 
un réseau 
différent à 
chaque partie, 
modifiable en 
cours de partie. 





1 DATA "134111111111111111111111111111" 
2 DATA “181880808080818111800008808181" 
3 DATA "“181111811111818181811188108101" 
4 DATA "180810810880818081818181118181" 
5 DATA "181811818111118181818118108181" 
b DATA "111880018080818180810008100081" 
7 DATA "181111111181818181101118111811" 
8 DATA “108010808181810080001018108001" 
9 DATA “181811118108811111811818188101" 
18 DATA "181818010111008100810818118101" 
11 DATA "181888810808818181111880818881" 
12 DATA "111111811111188800811111818181" 
13 DATA "188811000888011111818808818181" 
14 DATA "181181111811888888118111111181" 
15 DATA *181881800881811118108088081801" 
16 DATA "181818818181010808881111181811" 
17 DATA "181818118188810118111888181081" 
18 DATA “181808184118018808180811181181" 
19 DATA "181111181818111818081188181081" 
28 DATA "181808081818081818100081181811" 
21 DATA "181118111811118818111180881881" 
22 DATA “180008080880011818000811111181" 
23 DATA "111101118181800811111180088801 " 
24 DATA "1801118801808181008881881181111" 
25 DATA "181188811118111181181811881881" 
26 DATA "188801080818180008081811181811" 
27 DATA “118111111818111181188881888011" 
28 DATA "180818181808108801181881811111" 
29 DATA "18180818081008118188108188808:" 
30 DATA "1111111111" 


49 






48 CLEAR IBQB:REM RESERVE 1888 OCTETS POUR LES CHAIN 
ES DE CARACTERES 

45 PRINT'UN INSTANT SVP..." 

58 DIN B$(29,29) 

68 FOR 1=8 TO 29:READ COS:FOR A=8 TO 29:B$ (A, L)=MID$ 
(CB#,A41,L)2NEXT AzNENT ! 

T8 PRINT" OK... ON PEUT Ÿ ALLER... ":X=17:V215 

108 M=B:N=B:M= 8: INPUT "DEPLACEMENT ? (N,S,E OÙ 0)";A 
#:1F ASC'N" AND ASC)"S" AND ASCD'E" AND A$C)"0" THE 
N 198 

185 Ta 741 

118 IF A$="N" LET W=-1 

128 IF A$="S" LET Wei 

138 IF Af="E" LET Nei 

148 1F A$="0" LET N=-1 

145 IF B$(X,Y)="3" THEN 308 

158 1F B#(X4N,Y+M)<)"1" PRINT'DEPLACEMENT REUSSIT":6 
OTO 178 

188 PRINT"DEPLACEMENT IMPOSSIBLE":60T0 188 

178 X=X+N: Y=VN 

188 2#="L'EST":ON VAL(BS(X41,Y)) GOSUB 985 

198 2#="L'OUEST':0N VAL(B#(-1,Y)) GOSUB 985 

288 14="LE NORD':0N VAL(B#(X,Y-1)) GOSUB 985 

218 1#="LE SUD':0N VAL(B#(X,Y+1)) GOSUB 985 

228 6070 188 

388 PRINT'VOUS AVEZ GABNE EN ";T; "COUPS ":END 

985 IF W=1 THEN 998 

987 PRINT*IL N'Y À PAS D'ISSU";:W=1 

998 PRINT" VERS “:Z#:RETURN 


P. Prioux M 
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ECO 


* LA VILLE INFERNALE 


ile PLAN INFERHAL DE 
Etranger dans la ville LA VILLE DU MEME 


seul dans la nuit * 


et égaré dans la foule, :;°" >=) 


vous avez résolu  : ÎTIE 











118 PRINT"VOUS RENCONTREZ LE GEANT':1F C=1 PRINT"HEUREUSE 
MENT, IL EST K8*:607T0 148 

128 IF N=1 PRINT"IL VOUS ETRANGLE AVEC L'AIDE DE *sA$:60T 
0 18 

138 PRINT" VOUS L'ASSOMMEZ'*:C=1: INPUT "PRENEZ-VOUS SES 20 
00 $ ?";D$:1F D$="OUl" LET F=F+2 


























PR : Los oo 1))=——5 
de quitter les lieux …. 148 INPUT *ALLEZ-VOUS EN 2 OU EN 4 ?";B:1F B()2 AND B()4 
; THEN 148 
I 
ant ra idement I 158 ON 8 GOTO 18,88,18,168 
le_poste-frontière L à 168 PRINT*VOUS ETES DANS L'HOPITAL* 
mentionné sur votre plan; : DT ue | M PRINT'LES SOINS VOUS COUTENT 1888 $":J=1:1F F=8 THEN 
dès vos premiers pas, 1 11, ! |ive sr 
| Des 1 OIXI OU LI | 198 PRINTVOUS ETES AU CASINO": IF F=8 AND N:@ THEN 28 
POS PEsscnEs 1 lui jones à | 288 PRINT*VOUS DEVEZ TOUT JOUER‘ 
l'impression 1 1:17 I | 218 IF F=8 AND N-1 PRINTAS;" VOUS DONNE 1888 $ ET VOUS DI 
B ft 2 Z'ocraer ? ©! |T JE VOUS EN PRIE, JOUEZ NON ARGENT ‘":F=1:B=34:A$="1L" 
ue votre fuite est 1 ïTerwri 1 | 228 PRINT A9" VOUS CONSEILLE DE JOUER LE “;B: INPUT “QUE 
tributaire de l'étrange D OL GUIDES 1 1 | JOUEZ-vous”";1 
! 238 IF (IC)B AND N=@) OR (1=B AND N=1) G0TO 240 
En Ai 0 © EE À 
comportement |; AL) 1 1 AB IF I<B AND N-0 LET F<24F:k=2:6070 270 
de certains citadins 1! ! DZ À258 IF Ne1 AND 108 LET K=1:6070 278 
tout ! L'accuz 1 | 268 PRINT'HELAS! VOUS AVEZ PERDU'*:6070 30 
- cependant celui-ci est F7 1 M D | 278 PRINT-VOUS RECUPEREZ … "sks" FOIS VOTRE nISE" 
toujours identique dans 1 ,,, ‘;; : | 208 1NPuT "vous PRENEZ MAINTENANT 1 TAXI, CHOISISSEZ-VOU 
tions ©? PLXÆE 2 LÀ SUN TANT x OÙ un TauI 2 7318 
des_conditions 1 El  |208 17 Lot ann L4co*2e ren 200 
similaires : 13 jee See I | 308 IF Ls"A* LET Né *DEPART":Be1:6070 320 
TS 4 l 
: 318 M$="SNACK" :B=8 
[ 5. LL. 2 I 
votre_salut = 6! CAS= mi | 328 PRINT L#;* VOUS CONDUIT AU *;MS:0N 8 GOTD 48,18, 18, 18 
par l'apprentissage 14 1-16 “D | ,18,18,18,338 
des lois 1°?1... ....1 | 330 PRINT*PASSEZ COMMANDE AU GUIDE" 
dE e DO À Hoi 348 INPUT *PIZIA OU CEPES ? *;0$ 
qui régissent cette ville, 7 “TO lis | 350 E-p:16 08="P1220" LET E21 
E'HOPITAL SL | 368 IF N#E C1 PRINT'VOUS ETES ENPOISONNES!":6070 18 






* 378 PRINT'CE DELICIEUX REPAS VOUS COUTE 1888 $":F=F-1:021 
388 PRINT'VOUS ETES AU BUREAU DE PERCEPTION... LES INPOTS 
VOUS COUTENT 18885" 
398 IF F(1 THEN 20 
408 IF D$="OUI" PRINT"VOS $ SONT FAUX!":60T0 38 
418 PRINT"VOUS ETES A LA DOUANE" 
428 IF F>1 PRINT"DEFENSE DE PASSER DES $":60T0 38 
438 PRINT'LE MOT DE PASSE EST AUJOURD'HUI: " 
HO IF J=0 LET A$="MEDECIN":60T0 478 
458 IF Q=0 LET A$="BARMAN":607T0 478 
468 A$="GUIDE" 
478 PRINT'L'AGE DU *;A$:INPUT "QUEL EST-IL?";K 
480 IF R+B=K AND B-N=7 PRINT" VOUS ETES LIBRE!":END 
498 PRINT'C'EST FAUX!":6070 38 G. Leblond H 






I 
secs sise see I 


I 









18 PRINT*LA VILLE INFERNALE":607T0 48 
28 PRINT" VOUS N'AVEZ PAS D'ARGENT" 
34 PRINT*ON VOUS JETTE EN PRISON":60T0 18 
40 PRINT"PRENEZ UN GUIDE":R=35 = 

38 INPUT*MAX OÙ PAUL?";A$: IF A$C)"MAX® AND A$C)"PAUL" THE 
N 58 

68 IF A$="MAX" LET N=8:607T0 88 

78 N:1 

88 PRINT*VOUS ETES SUR LA PLACE": INPUT "DIRECTION? 1,3,5 
OU 9*;B 

98 IF BC)1 AND B€)3 AND B()5 AND B()9 THEN 88 

188 ON B 6070 48,18,118,18,198,18,18,18,388 
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Flingues, drogue et rock ! 


Destroy ! ! ! Telle une locomotive 

endiablée, l'engin em. 
rss. LE BITUME 
en vrombissant sur sa lancée. 


Survivrez-vous à ce régime, et parviendrez-vous à reprogrammer 
l'ordinateur de bord ? II vous faudra encore parer aux assauts 
des desperados de l’autostrade, et vous garder 
de succomber à la tentation 
de la débauche. DESTROY ! ! ! 















































108 REN ---- FF404040FF 420282" er LFAFDFFFFFDF1FÈ7 380 DATA “#tssss#) aa0ILaa CHE HE 

118 REN AUTO FOFBFBFFFFFBFBEG"):: RANDOMIZE RESTORE #+####) aaaa CARE CHERE) 

128 REM ---- :: B$="081C" (2711112 

138 REN +8Ko 248 CALL CHAR(62,"F@FGFCFEFCFGFOE",42,"00 310 DATA “#+##stuts RERHHENES SE 

140 OPTION BASE @ :: DIM 4$(20,7) d0:8303016" ,36,B$,67,88,37,"00000066FFS  +essess) (ETTTTTTTAMNETT I 1110 

158 DISPLAY AT(2,5)ERASE LL: "CIRCUIT AUT bEbbbGbBbEbFF EE" ,129,"887C3232303 3078") On  hOH#REHEEET CHREHEEEES) CHE 

Qi s à + :VITESSESs"e s"-(1)-pRapiDE" 298 FOR 451 TO 5 s FOR B°1 TO 7 :3 READ #s° 

ous "=(S)-DLENT': 5 "(VOTRE CHOI1)--}" A$(A,B):: kEAT B:: NEXT À 320 DATA “e######ph ROHAN ER 

168 ACCEPT AT(13,18)VALIDATE{"123456")512 Zoë FOR A=1 T0 7 1: A$l6,h)=" "este, 5655468) CHRHEEHEET HHEEEEEES) 

E(LIBEER:Y s2 N=SGN() E HH#AEEAE" 11 READ 4$i7,4i:: NEX ho Cette" 

178 QATER=I se N=17 :2 K=15 TA :: A$(8,1),A$(4,7)=4$17,7):: READ ASC 330 DATA “###4#####4) CHERE UE 

188 CALL CHAR(72,"@UGS08iCOg49iCa8" ) 8,2} ##444 IETTTPTITIT ONE TT TT 

198 CALL CLEAR :: CALL SCREEN(2):s CALL C 278 A$(8,3),A18,4),A$(8,5) AIG, 6)=AS(S,  CHRRRRHENEE", HE) CELEEEEEEE LES 

ane2453,3,14,3,1,5,161,, 211 FOR Re TO LE 15 FOR Def 10 7 15 Re 

11,1,7,9,18,8,11.1) EAD A$(A,B):: NEXT 8 11 NEAT À :: READ 4$ 340 DATA “+ésse CERTES TEST 

208 CALL COLOR(9,11,11,18,7,1,11,2,18,12, 128, 1) chat À CHERHRNEREET QC HRHERERE) 

2,2,13,15,5,14,9,1):: BS=RPTS("F", 16) 280 À5(20,2:,45(28,3) ,44120,4) ,4#(20,5) ,8 CHERRHENE 

218 CALL CHAR(67,"1818183C3C3C7E7E "136, 5128,6),4$120,7)=A$(20,1):: FOR A=12 10 350 DATA “asus (ELTIIITT ANT 

0181091B8383F7F7FO0B0SODEDCFCFEFE * ) 17 :5 FOR B=1 TO 7 :: READ A$(A,Bi:: NEÂ #+###4) ICTITIIT EN 717212 

228 CALL CHAR(A,RPTSC"ARSS" 4) ,49,"1898F T B:: NEÂT 4 :: 6010 598 DU OOCHAFREAT SUR) GP Che 
FSDICALEANS 1 99BFFSDSCICESBATOJAFE7A7EFC 290 DATA “#r#s#t#4t) (CULOTTE NS TRES 

FE48" 137,85,105,B5; CETTE Catessss" een) à JOÙ DATA ‘#####h#s) 3 PPPPE CHRRREERT, VE 





 « ‘ 0 
230 CALL CHAR," FiF3F7F3F1F0F07",113," à RENAN "HHREEE)  aaaäa Chute PH)  EEEE CHAR CHAN) 
#4" COLTITITE 
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378 DATA “######5) CHRERAEEE" 
LISE CARE SU HHHENEREETS ) 
CARRE URERHENERERER) CHHEHEEE 
++" 
JR DATA “HRMANEEENEE) CHENE, EE 
ÉLELLELE PS CHRRARANNET CHHEHENEEE) 
CHE##4406" 
390 DATA “séetersss) LRLLELELE ES PSS!) 
LALLELE LS RITES ET LI LECTURES 
DOUCHE UHR | HE 
#+* 
400 DATA “osssesses 2] COTES TS 
#étttts, CÉSAR HAUSSE) 
CHENE CEE) ‘# 
#+° 
410 DATA “enhsttts) LELLLEEE SAS 13 
Hattttts) CHARS HAN ES 
CARAREENNNES CHRANAEHAES)  CHRÉRREES 
LL 
420 DATA “hÉHHHEEENNER) CHRRRRRRSEES THE 
#hhttets, CHENE SCHRRARES) 
CESSE 
AGR DATA “trsssts CHHEEEET 4) 
(+ ,"##t) <#+ 
CHRET VER) CHE) CHE SH) 4 
440 DATA “hh) C##) CRE) CHE) GHRETURE 
#) (He: Can) CH#2 (He, "e 
La 
450 DATA “ehetestss) CHANEREE 0 
LLLE LE CHANESS" "HE 900 
Q ogg (####","#####) 0 gag (++ 
#° 
4oû DATA “atttes} CHERE HR 
#rtét) q CHAOS CHARTE) 
CEE HRÉNEREEEE RTL EL 


470 DATA “onte#tss) CHRRRAESES EE 
#hRAtEE) CHRHAREME UHR) 

AD OCHERENHENT THRRRNREES) 11 CHER 
LL2 

AR DATA “HHHEEHSE) jh CHASSE," 
LLLE LEE 2 CARRE RARES) 

CHERE" 

490 DATE “H######F# EN 
C21/111P 


À CHHHHEENET RE 
ROHAN HR 
#44", #nhhôh h 


FU 
50 DATA “+ *) a He h 
RONQBUE> h À CHEAENEE UHHANENENEE 

D CHRRHEHEEENE" 

510 DATA “a########) CHAR" EE 
#44) ILE EE De LEZ LICT ET] 

C##40406" ,"TATTAIELIUNL TALITITITT 

11° 

328 DATA “ÉhEEELEREUES ERRRRRRRRR EE", ee 
LLLEEE CHARS URSS, 

ho C++ 


530 DATA “sntthtteset D Cantet "4 
$ ÿ #55 (s","#2 $ 
# (+°,°s} $ 
{+ 
948 DATA “#25 5 55 5 #,"# 
$ 5 He", "ssttestss) 
SO OCHs#s#444" 
558 DATR “ehothesss) CC C <tsetesss" “es 
mat) CCCC CCéee#er" "sl CCC 
LE Camera DCT CCC CCC 
<<" 
Soë DATA “##s) CL © DL Cises,"es 
###)0C CC C Cicsee64",“ssssessss 
CCC CCeesesses" 
570 DATA “æh##be#er) ON GHH#REEEST Te 
#####+) Chhn  CEx####e","4##4ett, 
hahn  Gh####s","######) nhnnnhh (#44 
+" 
588 DATA “ssssess) 
#####4,  hnh 
LS: 211112 
598 ! --RuN-- 
où8 Bs="BOFFBDSCEDFFBDIB" :: CALL CHARIIS 
.85,48,85,104,85,34,"816131088181812808 
420000884246" ):: CALL SPRITE(83,33,5,82,: 
28,42,54,2,92,128: 
b18 CALL SCREEN(S):: CALL SPRITE(#I,35,14 
,82,128,84,48,10,20,245,45,48,9,30,145, 
*6,48,7,48,245,47,48,14,58,245) 
628 CAil SPAITE(S8,48,6,68,245,09,43,5,78 
245,918,48,13,88,245,61:,48,5,%8,245,8 
12,48,4,108,:45) 
038 CALL SPRITE(#13,48,12,118,245,814,46, 
11,120,285,415,48,16,150,245,#16,43,15, 
148,245,#17,48,2,158,245):: VIzi4 
B4B MATI=INTIRNB#72+1 :: IF GATER(21 THE 
h MAIT-28 
658 FOR Cal 10 7 :2 PRINT ASiMATT,CATI: 
1 KNSKM+. 015 2: CALL JOYSTIL, AB: if 
BC)B THEN 660 ELSE CALL KEY11,KEY, STATUS) 
boû 1F KEY=12 AND Kn2.88 THEN KN=KM-,815 
: G0TO 888 ELSE IF KEY=13 THEN CAiL PA 
USE :: GOT 718 ELSE IF KEY=18 THEN 738 
070 FOR 1=8 10 25 :: NEAT T 1: GATER=QRIE 
R+ 
680 FOR T=25 T0 V#25 +2 NEAT 1 
ATER+Y+1 
E9Ù 1=1+474 :: 1=168-7 
708 CAL LOCATE(#1,82,1,82,82,1,83,82,1): 
: CALL GCHAR(12,1,F):: IF DFC232 AND D 
F(>39 THEN 778 
J10 NEXT CAT :: 60T0 648 
7128 GATER=QATER+4 
738 CALL LOCATE(#1,82,Y,82,82,1,83,82, 1): 
: FOR &=11 T0 24 :: CALL GCHAR(A,E,JL) 
140 IF JLz=184 THEN dAS=HAS+3 1: Ji=32 :: 
6010 768 ELSE IF JL=32 OR JL=39 THEN 76 
8 


hobnh <Ce###55" ,"+s 
NT LIIEDNS 1111117 


1: ORTER=Q 


758 CALL SOUND(238,-5,1):: CALL VCHAR(A, 1 
2211: N4S=NAS-1 :: GOTO 718 
168 CALL HCHAR(A,X,72):2 CALL HCHAR(A, Hd 
Lists NET À :: CALL LOCATE(#1,82,Y,422, 
82,Y,43,82,Y):: 6070 718 
778 CALL SOUNLISO8,-5,1):: CALL SOUND:288 
è,228,4,438,5,888,6,-7,0):: CALL CHARS 
3," 2408441818450874") 
788 FOR DELAI=1 10 58 :: CALL COLOR(#3,12 
ht: CALL COLOR(#3,1@):: CALL COLDR(#3,5 
ss NEIT DELAI :: VI=vi-1 
77 CALL CHARISS,8$):: CALE DELSPRITE(SVI 
+4):: 1F V120 THEN 718 
828 CALL CLEAR :: CALL DELSPRITE(ALL):: € 
ALL CHARSET :: CALL SOUND(508,-1,1) 
818 CALL CHAR(37,F$,38,"EE44FEFFFFFEA44EE" 
ss CALL COLOR(1,5,1):: CALL SPRITE(#1, 
38,5,188.1,8,18) 
828 KH=KM428 :: TPS=QATER/48 :: TP$=" ‘4S 
IRSUINT(TPS/08) 14 "H "ASTRECINT I ((TPS/68 
i-INT(TPS/o8} : #68) )&"Nn" 
63€ DISPLAY AT(1,5): "CIRCUIT AUTO‘: À 
TLLLAUALUL s à à + = 'AVIE(S) SERRE" VI: 
2'APOINTSELRLL "MAS: : "LTENPSRRRERRE": TPS 
S48 DISPLAY ATII3.1:: "EKILOMETRESL" 5x: : 
&VITESSERSUR ": INTIKN/TPS#68); "Kane 1: 
CALL MUSIQUE 
35 CALL KEVI8,R,S):: IF S=8 THEN 840 
Seb ENL 
378 SUB MUSIQUE 
Beù DATA 523,466,349,523,466,349,523, 466, 
440,466,523,698,932,1047,698,932,1847,1 
847,932,880,1047,1047,838 
898 F2=523 :2 FOR 4=2 10 1 STEP -1 :: RES 
T0RE 668 :: FOR 1=8 10 22 :: READ F :: 
FR 
s88 CALL SOUNDI-58,F2,1,F,6,F2,15b:: CALL 
SOUND:150,F,1,F2,8,F,1S):: F22f :: NEX 
T T:1 NEXT À 
318 SUBENE 
228 SUB PAUSE 
SR À :: RS :: © 7 55 E=8 53 F= 
9 se Gi 2 Mali ze 212 2 J=13 :: ke 
14 se Lei5 :: M=ié :: CALL SOUND(58,880,0 
} 
348 FOR N=1 T0 288 :: NEXT 
Nr Q=À :: AB :: Bet : : C 
1: F26 :2 6H :: Heï :: 
KL :: La : 1 MR :: NW 
Soû CALL KEY(B,P,@i:: IF &(8 THEN 588 
978 CALL COLOR(#4,10,48,9,80,7,4D,14,4E,6 
4F,5,46,13,04,5,81,4,89,12,8K,11.81,16 
41,15,84,2):: 6070 958 
38e CALL COLOR(#4,18,85,9,t6,7,07,14,88,6 
149,5,818,13,811,3,812,4,813,12,8184,11, 
#15,16,#16,15,#17,2):: SUBEND Bob ZE 











ARISTOTE, 





DIEU 
OULIPISTE 


La recherche de distances respectables 
dans un graphe donne lieu 

à des applications inouïes qu'Aristote 
ou Newton ne soupconnèrent pas : 
des domaines aussi variés 

que la topologie urbaine 

calcul de la distance la plus courte 
entre deux rues dans une ville donnée 


- en tenant compile 
des sens uniques et autres traquenards 
réservés à la circulation 
ou que la Littérature POtentielle, 
trouvent des modèles de solution 

non-aristotéliciens. 




















oici un programme capable 

de calculer la longueur mi- 
nimale de chacun des points 
d'un graphe par rapport à un 
point de référence ; l'algorithme 
de Ford se résume ainsi : 
— on numérote chaque 
sommet du graphe dans un 
ordre quelconque : X1,...,XN 
— on affecte provisoirement 
une valeur infinie à tout sommet 
hormis le point de référence de 
valeur 0 
— on attribue à chaque 
sommet XJ<=XI+d(XI,XJ) 
cette dernière valeur 
— et ce jusqu'à ce qu'aucun 
sommet ne puisse être modifié. 
L'exemple d'utilisation est ex- 
trait de l'OUvroir de Littérature 
POtentielle. 


X1 X2 X3 X4 X5 X6 








18 REM CALCUL DE LA LONGUEUR MINIMALE 
20 REM OU MAXIMALE DU CHEMIN 

30 REN ENTRE 2 POINTS D'UN GRAPHE 

4@ REN----INITIALISATION---- 

58 INPUT "NOMBRE DE SOMMETS DU GRAPHE?";N 

60 DIN NN) ,T(N,N) 

78 PRINT"RECHERCHEZ-VOUS: ":PRINT"L :CHEMIN MINIMAL":PRINT 
*2 : CHEMIN MAXIMAL" 

88 INPUT "TAPEZ 1 OU 2 ";RE 

9@ IF REC)1 AND REC)2 THEN 88 

188 ON RE GOTO 118,168 

118 X(1)=8 

128 FOR 1=2 T0 N 

130  X(1)=184EXP (18) 

148 NEXT I 

158 60T0 280 

168 REM----AFFECTER 8 À CHAQUE SOMMET---- 

178 FOR 1=1 TO N 

188  X(1)=@ 

198 NEXT I 

208 REM----VALEUR DE CHAQUE ARC---- 

218 FOR 121 TO N-1 

228 FOR J=2 TO N 

238  READ T(I,J) 

AB NET) 

258 NEXT ! 

268 REM----TRAITEMENT---- 

278 FOR 1=1 TO N-1 

280 FOR J=2 10 N 

298 IF T(I,J)=28 THEN 360 

300 IF RE=1 THEN 318 ELSE 328 

318 IF K(J)-X(I)C=T(1,0) THEN 360 ELSE 338 

328 IF X(J)-X(1))=1(1,9) THEN 360 

338  X(J)=K(1)#T(1,0) 

348 IF IC] THEN 368 

358  I=J:1F RE=1 THEN J=@ ELSE J=2 

368 NEXT J 

378 IF RE=1 THEN J=8 ELSE J=2 

388 NEXT 1 

398 REN----RESUL TATS---- 

408 PRINT “VALEUR DE CHAQUE SOMMET:" 

418 FOR 1=1 TO N 

428 PRINT “l"s ls "=": (1) 

438 MENT ! 

448 IF RE=1 THEN 460 

458 PRINTVALEUR DU CHEMIN MAXIMAL DE XL À X"Ns":";X ON): 
END / 
468 PRINT'VALEUR DU CHEMIN MINIMAL DE X1 À X"3N;":"; (NI: 
END 

478 REN----ENTREE DES DONNES---- 
488 DATA 2,3,3,8,0 

498 DATA 8,8,1,5,8 

508 DATA 0,8,7,5,0 

518 DATA 8,8,8,8,6 

528 DATA @,8,0,8,4 


P. Guegano 
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CONVERSIONS 


SUBITES 


Peut-on s’offrir une pinte de bon sang sur le 
ir du bon pied avec les coudées franches ? 








el 





uce | 





Coup de tête, et bosse des maths : le nautique tape enfin dans le mile. 








Les systèmes d’unité de poids et mesures utilisés 


uotidiennement sur notre planète font preuve d’une joyeuse 





exubérance : les calculs d’aire eux-mêmes ali, 





à faire fi de cette sorte de problème : 
un programme configurable suffit 
pour s'entraîner et fixer les idées, 


18 CLEAR 598 

28 DIN U#(6),11(6,6),72(6,6) 

38 RANDON 

40 NO=B:REN NOMBRE DE QUESTIONS POSEES 

38 NB=B1REN NOMBRE DE BONNES REPONSES 

68 CLS:PRINT:PRINT:PRINT :PRINT CHRS(23):PRINT TAB(6)* UM 
ITES D'AIRE ":PRINT:PRINT TAB(4)" EXERCICES DE CONVERSION 


TE FOR I=8 TO 6:READ US(I)4 US(I)=US(T)+CHRS(27)+"2"#CHRS 
(26)1NENT 1 2REN LECTURE DU NON DES UNITES 

88 FOR I=8 TO 6:FOR JB TO 62READ TL(I,J)aNENT JENENT 1 
98 FOR I=8 TO 61FOR Je8 TO GeREAD T2(I,J)2MENT JeNEXT ! 
108 DATA KN,HM,DAN,N,DM, CH, MN 

118 DATA 0,1,1,8,0,8,8 

128 DATA 1,8,1,1,8,8,8 

138 DATA 1,1,8,1,1,8,0 

148 DATA 0,1,1,8,1,1,8 

158 DATA 8,8,1,1,0,1,1 

168 DATA 8,8,8,1,1,8,1 

178 DATA 8,0,0,8,1,1,0 

188 DATA 8,180,18888,0,8,0,8 

198 DATA .81,0,100,18080,0,0,0 

208 DATA .0081,.81,8,108,10808,8,8 

218 DATA 0,.0081,.01,0,100,16080,0 

228 DATA 8,0,.0081,.81,0, 188, 10008 

238 DATA 8,8,0,.0081,.81,0, 188 

248 DATA 8,8,8,8,.0881,.81,8 

298 G60SUB 448:REN CHOIX DE LA QUESTION ET CALCUL DE LA BO 
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ent des bordées de zéros 


NE REPONSE 

268 CLS:PRINT:PRINT" COMPLETEZ : * 
278 NO=NQ+1 

288 PRINT:PRINT:PRINT TAB(18)3AGU#(U1)j" = ,,,,,,, *jU$ 
{U2) 

298 PRINT: INPUT" QUELLE EST LA REPONSE "JR 

38 1F ABS(I-R)C.000081 THEN 348 

318 PRINT" LA REPONSE EST FAUSSE ...."2PRINT * IL FALLAIT 
TROUVER "} 

328 1F X)=.81 THEN PRINT X :60T0 368 

330 A1$="8,8#48":PRINTUSING A1$;X:60T0 368 

348 PRINT:PRINT" LA REPONSE EST EXACTE * 

358 NB=NB+1 

368 PRINT:PRINT" APPUYER SUR UNE TOUCHE POUR CONTINUER * 
378 RS=INKEY#:1F R$=°" THEN 378 

388 IF NO(28 THEN 258 

398 CLS:PRINT “LE QUESTIONNAIRE EST TERMINE...":PRINT:PRI 
NT 

408 PRINT" SUR “;NQj" QUESTIONS POSEES, IL Y À EU ";NB; 
418 IF NB)1 THEN PRINT" REPONSES EXACTES ":6070 438 

428 PRINT" REPONSE EXACTE * 
438 PRINT:END 

448 A=RND (99) 

450 Ui=RND(7)-1 

468 U2=RND(7)-1 

478 IF TI(U1,U2)<)1 THEN 468 
488 X=A#T2(U1 ,U2) 

498 RETURN 


D. Botton 











LA PSYCHO TAPIE 





AU FLAFOND 


Une nouvelle forme de bulletin de santé 
voit le jour avec un triple diagnostic 
au coin des lèvres : le roseau 

bien pensant qui composa ce programme 
ne laissa aucune place au doute : 
cycles biorythmiques et questionnaires 
répondeurs se combinent à gogo 
jusqu'au tableau final : un profil 
psychanalytique en apothéose 

sur votre beauté cachée 

el vos talents refoulés. 


























out est permis au patient 

respectueux qui n'introduit 
pas de virgule dans ses ré- 
ponses (celles-ci sont rempla- 
cées par des /). Au cours du 
dialogue, l'ordinateur analyse 
les réponses et compare 
chaque mot à ceux qu'il a en 
mémoire ; il peut décider 


d'approfondir certains points 
(questions occasionnelles) ou 
de revenir aux questions régu- 
lières. 

Puisse ensuite la phase critique 
vous combler 
d'émotion. 


d'aise ou 























18 CLEARSBB:REN RESERVE 588 OCTETS POUR LES CHAINES DE CA 
RACTERES 

28 P1=3,14159 

30 PRINT"SUPER PSYCHO":PRINT"ETUDE PERSONNIFIEE" 
44 INPUT "NOM";D$ 

58 PRINT "ETUDE CONCERNANT “;D$ 

60 REN----BIORITHNE---- 

78 PRINT "DATE DE NAISSANCE SVP": INPUT "JJ,MM,AAAA" 3 DIN! 
Y1:D=D1:M=H1:YzYi 

88 G6OSUB 138:DN=FA 

98 PRINT "DATE À ETUDIER": INPUT “JJ,MM,AAAA";D,M, Y:G0SUB 
138: DA=FA 

108 PRINT "NE LE:":D1;"-"5M13"-"5Y{ 

118 PRINT "EFFECTUE LE:";D;°-"5M5"-"5Y 

128 6070 168 

138 IF MC3 THEN NA=(Y-1)/108:FA=365#Y+D+31#(M-1)+#INT (NA#2 
S)-INT (3/44 (INT (NA) #1) ) : RETURN 

148 FA=365#Y+#D+31#(M-1)-INT(.44M42.3)+INT(Y/4)-INT(3/4# (I 
NT(Y/188)+1)) :RETURN 

158 REN----SOLUT IONS---- 

168 JT=DA-DN:PRINT “BIORYTHME NOTE DE -28 A +28" 

178 N=23:60SUB 228:PRINT “CONDITION PHYSIQUE: ";J 

188 N=28:60SUB 228:PRINT CONDITION SENTIMENTALE:";J 

198 N=33:60SUB 228:PRINT “CONDITION INTELLECTUELLE: ";J 
208 D$(8)="SAMEDI":D$(1)="DIMANCHE":D$(2)="LUNDI":D$(3)=" 
MARDI ":D$(4)="MERCREDI":D$(5)=" JEUDI" :D$ (6) ="VENDREDI ": SA 
=DN-INT(DN/7)#7 

218 PRINT “AUTRE CHOSE... ":PRINT'LE *;D15"/"5 Mi; "/"5 ls" 
ETAIT UN “;D$(SA):60T0 234 

220 J=INT(28#SIN(2#P1/N#JT) ): RETURN 

238 DIN B$(38) ,[ (38), (38) ,K(38) ,N(38) ,U(38) ,B(15) 

248 FOR T=8 TO 29 

258 READ B#(T),L(T),J(T) ,KAT) ,NUT) 

268 NEXT T 

278 REM----DEBUT DU DIALOGUE---- 

288 PRINT “ATTENTION, DURANT LE DIALOGUE, LA VIRGULE EST 
l'3PRINT "TOUT MOT OU SIGNE DOIT ETRE SEPARE PAR UN ESPAC 
E" 

298 PRINT*BONJOUR" 

J08 REN----ENTREE---- 

318 INPUT H$:H$=H$+" ":V=V4] 

328 REM----DECOUPAGE PUIS RECHERCHE DES MOTS---- 

338 N-8 

348 M=LEN(H$):1F MCS AND H$C)"FIN * THEN PRINT"SOYEZ PLUS 
PRECIS SVP":60T0 318 
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358 IF H#=*FIN * THEN 818 

368 H=1 

378 FOR T=1 TO À 

388 1F MIDE(HS,T,1)=* * THEN 400 

398 MENT 1:6070 478 

408 AS=NIDS (HS ,H,T-H):H=T4l 

418 FOR S=8 TO 29 

428 IF BS(S)=AS THEN I=L1S):)=J(S)2K=K(S):N=N(S)2A(T)=A(1 
MH: A(J)=A (TI #1: AK)=AIK)-1:60T0 450 

43e MENT S 

448 MEXT T:6070 478 

458 U(S)=U(S)+1:6070 448 

468 REN-—--QUESTIONS RESUL IERES--—- 

478 1F BUN)C)1 THEN ON N GOTD 668,678,688,698, 788, 778,788 
,790,718,728,730,740,758,768 

488 1=1+1:0N 2 SOTO 498,508,518,528,530, 548,558, 568, 578,5 
90,590,680,618,528 

498 PRINT'QUELLE EST VOTRE PENSEE?":6070 318 

508 PRINT'POURQUOI?":6070 318 

518 PRINT'EN ETES-VOUS SUR?*:6070 318 

528 PRINT'EN AVEZ-VOUS PEUR?":607T0 318 

538 PRINT'AVEZ-VOUS LE CARACTERE ACCONODANT?":60T0 318 
548 PRINT'AIMEZ-VOUS FAIRE JUSTICE ?":60T0 318 

558 PRINT'ETES-VOUS INQUIET?":6070 318 

Sé8 PRINT'ETES-VOUS IMPULSIF?":6070 318 

578 PRINTETES-VOUS MEFIANT?":6070 318 

588 PRINT'ETES-VOUS VULNERABLE?":60T0 318 

598 PRINT'AAIS POURQUOI ?":60T0 318 

608 PRINT'DONNEZ D'AUTRES EXPLICATIONS":6070 318 

618 PRINT"VOUS REPONDEZ SANS LUCIDITE POURQUOI ?":6070 318 
628 6070 1278 

638 PRINT'NOUS NOUS SOMMES TOUT DIT, JE CROIS, PASSONS AU 
DIASNOST IC" 

san 6OTO 818 

458 REN----QUESTIONS OCCASIONNELLES---- 

668 PRINT'PENSEZ-VOUS A VOUS":B(1)=1:6070 318 

678 PRINT"ALORS, QUI SUIS-JE?":B(2)=1:6070 318 

688 PRINT'DE QUOI PARLEZ-VOUS?":B(3)=1:6070 318 

898 PRINT'QUI EST-ELLE":B(4)=1:60T0 318 

708 PRINT"ETES-VOUS POSSESSIF?":8(5)=1:6070 318 

718 PRINT'QU'ENTENDEZ-VOUS PAR “PRECISEMENT ‘?":8(9)=1:607 

0 310 

728 PRINT" POURQUOI MOINS?":8(18)=1:6070 318 

738 PRINT'PENSER, ES-CE IMPORTANT?":B(11)=1:6070 318 

748 PRINT'SAVOIR, ES-CE IMPORTANT?":B(12)=1:6070 318 

758 PRINT"QU'ENTENDEZ-VOUS PAR ‘TROP'":B(13)=1:6070 318 
768 PRINT"QU'ENTENDEZ-VOUS PAR ASSEZ *":B(14)=1:6070 538 

778 PRINT'COMPRENEZ-VOUS LA VIE?":8(6)=1:60T0 318 

788 PRINT"OU CALME! !*:60T0 318 

798 PRINT'JE NE REPONDS PAS AUX QUESTIONS":60T0 318 

808 REM-—--DIAGNOSTIC-—-—- 

818 PRINT*VOICI MON DIAGNOSTIC" 

828 IF AUL)/VC.2 PRINT*VOUS N'ETES PAS ESOCENTRIQUE":6070 
868 

838 IF A(1)/VC.4 PRINT"VOUS ETES EBOCENTRIQUE":60T0 840 
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848 PRINT VOUS ETES TRES ESOCENTRIQUE * 

858 PRINT" VOUS PRENDREZ TRES RAPIDEMENT LA TETE D'UN GROU 
PE CAR VOUS N'AIMEZ PAS PASSER INAPERCU* 

868 6OSUB 1428:1F A(21/W(,4 PRINT'NESLIGEANT, VOUS PREFER 
EZ ATTENDRE QUE LE TEMPS ARRANGE LES CHOSES" 

878 1F A(2)/V.6 PRINT*VOUS PARTEZ SOUVENT BATTU D'AVANCE 
l°:6070 918 

888 IF A(2)/VC1 PRINTVOUS ETES PEU EFFICACE MAIS ASSEZ I! 
NTELLISENT":607T0 918 

898 IF A(2)/VC1.4 PRINT*VOUS ETES EFFICACE ET AGISSEZ AVE 
C METHODE ET REGULARITE":607T0 918 

908 PRINT'EFFICACE ET TRES INTELLIGENT, VOUS TENTEZ DE CU 
LTIVER VOTRE VIE INTERIEURE" 

918 6OSUB 1428:1F A(S)/V<,81 PRINT"PEU SOCIABLE, VOUS ETE 
S TRES SOUVENT PERSUADE D'ETRE DANS VOTRE BON DROIT, VOUS 
AIMEZ COUPER LES CHEVEUX EN QUATRE":60T0 958 

928 1F A(S)/VK.04 PRINT'VOUS ETES TRES EXIGEANT ENVERS VO 
US-NENE ET AUTRUI ":6070 958 

938 IF A(S)/VC.1 PRINT*VOUS ETES D'HUMEUR EGALE ET GENERA 
LEMENT INPASSIBLE":607T0 958 

948 PRINT" VOUS ETES EXTRENEMENT SOCIABLE ET VOUS VOUS ADA 
PTEZ ASSEZ BIEN AUX SITUATIONS" 

958 60SUB 1428:1F A(4)/V<.1 PRINT"VOUS NE SEMBLEZ PAS AVO 
IR COMPRIS LE BUT DU DIALOGUE, DOMMAGE !":60T0 998 

968 IF A(4)/VC,4 PRINT"VOUS DESIREZ ATTIRER L'ATTENTION S 
UR VOUS, FUT-CE AU PRIX DE LA SEDUCTION":60T0 998 

978 1F A(4)/V<,8 PRINT*MOYENNEMENT COMPREHENSIF, VOUS ETE 
S PLUS OU MOINS ATTENTIF*:60T0 998 

988 PRINT*VOUS ETES TRES COMPREHENSIF ET N'HESITEZ PAS A 
VOUS HONTRER ATTENTIF* 

990 GOSUB 1428:1F A(S)/V<,1 PRINT*TRES PEU LITTERAIRE, VO 
US NE PRENEZ AUCUN PLAISIR À LIRE":60T0 1928 

1808 1F A(S)/VC.4 PRINT"VOUS AIMEZ CONSACRER DU TEMPS AUX 
PLAISIRS SENSUELS ET À LA SOCIETE, CE QUI EST COMMN!":6 
070 1928 

1018 IF A(S)/VC1 PRINT*VOUS VOUS SENTEZ PREDESTINE AUX NO 
BLES CAUSES, AUX ENTREPRISES DIFFICILES ET PERILLEUSES" 
1828 60SUB 1428:1F A(6)/VC.2 PRINT"PEU LOGIQUE, VOUS DECI 
DEZ SUR DES COUPS DE TETE":60T0 1878 

1858 IF A(6)/V<.6 PRINT"ON VOUS REPROCHE D'ENTREPRENDRE T 
ROP DE CHOSES À LA FOIS":60T0 1878 

1048 IF A(6)(.85 PRINT"VOUS ETES ANXIEUX, INDECIS ET PARF 
015 TINIDE":6070 1878 

1858 IF A(6)/V1,2 PRINT"OBJECTIF ET JUSTE, VOUS ANALYSEZ 
SANS PASSION":60T0 1878 

1868 PRINT*VOUS RESOLVEZ FROIDEMENT LES PROBLEMES EN LES 
POSANT UN PAR UN, ON VOUS DIT TRES LOGIQUE" 

1078 GOSUB 1420:1F U(B)+U(1)#U(9)+UC18)4U(11) 212 PRINT"CO 
NTRE VOUS, ON SE DECOURAGE, CAR VOUS PRATIQUEZ LA POLITIQ 
UE DE L'INERTIE" 

1089 IF U(2)4U(3)>2 PRINT"FAMILIER, ON VOUS DIT EXUBERANT 
, CORDIAL ET PARFOIS COLEREUX* 

1098 IF U(4)+U(S)+U(6)>2 PRINT'TRES POLI, VOUS VOUS SENTE 
1 RESPONSABLE": G0SUB 1428 

1108 IF U(7)4U(8)>1 PRINT*VOUS EPROUVEZ LE BESOIN D'EMBEL 








LIR LA REALITE, D'EN RAJOUTER" 

1118 IF U(7)+U(8))1 PRINT"VOUS MANQUEZ EN GENERAL D'OBJEC 

TIVITE":60SUB 1428 

1128 IF U(16)+U(19)+U(28)>2 PRINT" VOUS COMPENSEZ VOTRE VU 

LNERABILITE PAR UNE CERTAINE LUCIDITE":60SUB 1428 

1138 IF U(18))=1 PRINT"VOUS TOURNEZ EN PLAISANTERIE LES E 

TATS D'AME D'AUTRUI":60SUB 1428 

1148 IF U(8)#U(1)+0(22)>2 PRINT"VOUS DONNEZ UNE GRANDE [M 

PORTANCE À VOTRE PERSONNALITE":60SUB 1428 

1158 6070 1358 

1168 REM----MESSAGE DE FIN---- 

1178 PRINTVOICI CE DIAGNOSTIC TERMINE":PRINT"A BIENTOT": 

END 

1188 REM----MOTS CLEFS---- 

1198 DATA" J'",1,4,3,1,"JE",1,4,3,4,°TE",4,5,3,2,*TU",4,5, 

3,2,"V05",4,5,1,2, "VOUS" ,4,5,1,2 

1288 DATA *VOTRE",5,2,3,2,*1L*,6,2,1,3,"ELLE",6,2,1,4,"N0 

N°,1,5,3,5,"ME",1,5,3,5 

1218 DATA "MA" ,1,5,3,5,*LES",2,3,5,0, "DE" ,4,5,6,0, "DES" ,4 
1910,0,"LE",2,6,3,8 

1228 DATA *?°,2,6,3,8, "001" ,2,6,3,8,"!",1,6,3,7, "PAS" ,3,6 
14,6,"/",3,2,1,8,"PLUS",6,2,1,6 

1238 DATA “NOI",1,4,3,5, "BONJOUR" ,3,4,2,8 

1248 DATA *PRECISEMENT* ,6,2,4,9, "MOINS" ,6,5,4,10, "PENSE", 

5,4,3,11,"SA15",2,6,5,12 

1238 DATA "TROP" ,2,5,4,13,"ASSEZ",2,5,4,14 

1268 REN----DEMANDE DE PRECISION---- 

1278 PRINT"BON, NOUS ALLONS EN FINIR AVEC QUELQUES QUESTI 

ONS PLUS PRECISES SUR DES POINTS QUI N'ON PARU OBSCURS, J 

E VOUS PRIE DE REPONDRE PAR OUI OU PAR NON :" 

1288 IF U(B)+U(1))2 INPUT'LES SENTIMENTS VOUS TROUBLENT-] 
LS?";H$:1F H#="NON" LET Q1=1 

1298 IF U(B)+U(1))5 INPUT *VOUS-CONSIDEREZ-VOUS COMME ACTI 

F?"3H#:1F H$="OUI* LET Q2=1 

1308 INPUT'ETES-VOUS BOUDEUR?";H$:1F H#="QUI" LET Q3=1 

1318 IF U(12)+U(15))2 INPUT'ETES-VOUS BOUGEANT?";H$:1F H$ 

"QUI" LET Q4=1i 

1328 IF U(19)+U(21)>2 INPUT"ETES-VOUS INSOUCIANT?";H$: 1F 

A$="QUI" LET Q5=1 

1338 6070 638 

1348 REN----REPONSES AUX PRECISIONS---- 

1358 IF Q1=1 PRINT"PEU TROUBLE PAR LES EMOTIONS, VOUS PRE 
FEREZ ENTENDRE CELLES DES AUTRES PLUTOT QUE DE RACONTER L 
ES VOTRES":60SUB 1428 

1368 IF Q2=1 PRINT"D'UN NATUREL OPPORTUNISTE, VOUS VOUS À 
DAPTEZ AUX NOUVELLES SITUATIONS":60SUB 1428 

1378 IF Q3=1 PRINT" VOUS AIMEZ QU'ON VOUS CONSOLE" :60SUB 1 
Li | 

1388 1F Q4=1 PRINT'VOTRE GOUT POUR L'EVASION VOUS PROCURE 
UN GRAND BESOIN DE DIVERTISSEMENTS":60SUB 1428 

1398 IF Q5=1 PRINT*VOUS AIMEZ BIEN DORMIR OU NE RIEN FAIR 
E":60SUB 1428 

1488 60TO 1178 

1418 REN----tespor isation---- 


1428 FOR I=1 T0 1SB8:NEXT I:RETURN S. Sabbague 
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RENCONTRES 
AU SOMMET 


Tenterez-vous une partie 
contre l'ordinateur ? Les 
règles sont simples, mais il 
faut une stratégie. 








O: convient d'un nombre 
entier de points qui consti- 
tuent les sommets numérotés 
d'un polygone. Chaque joueur 
relie à son tour deux sommets 
par un segment de sa propre 
couleur ; il faut respecter les 
deux règles suivantes : ne pas 
tracer un segment préexistant, 
et ne pas créer avec sa couleur 
un triangle reliant trois des 
points du polygone. Sinon, c'est 
la victoire de l'adversaire. 

Le jeu n'est pas bien compliqué 
(la machine indique les coups 
légaux si vous hésitez), cepen- 
dant il existe trois niveaux de jeu 
dont un « coriace ». 
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RENCONTRES AU SOMMET 


18 REN+##4# JEU DU POLYGONE #4#+ 

28 CLS1REN EFFACE L'ECRAN 

38 INPUT “JEU DU POLYGONE.. VOULEZ-VOUS LES REGLES "jA$ 

44 IF LEFTS(A$,1)()"0" THEN 88 

SR PRINT'ON CHOISIT UN NONBRE DE SOMMETS ENTRE 4 ET 9 QU' 

ON REPRESENTE PAR DES POINTS NUMEROTES SUR UNE FEUILLE, C 

HAQUE JOUEUR TRACE, A TOUR DE ROLE, UN SEBMENT RELIANT 2 

POINTS, "; 

68 PRINT"IL EST INTERDIT DE FORMER UN TRIANGLE AVEC 3 DE 

SES SEGMENTS, LE PREMIER QUI EST BLOQUE A PERDU. POUR REL 
JER SA 5, IL SUFFIT DE REPONDRE 35 OÙ 53 ." 

78 PRINT'POUR FAIRE COMMENCER LA MACHINE, IL SUFFIT DE RE 

PONDRE 8":PRINT 

88 INPUT "CONBIEN DE SOMMETS *3N 

98 N=INT IN) 

100 IF NÇ4 OR N>9 THEN PRINT" IMPOSSIBLE ":60T0 88 

118 DIM SEB(N,N) 

128 INPUT "QUEL NIVEAU DE JEU « 1, 2, OÙ S'yNIV 

138 IF NIVC)1 AND NIV{)2 AND NIV{)3 THEN 128 

148 DEB=0 

199 REN----RECHERCHE D'UN SEBNENT---- 

168 REN----LIBRE POUR L'ADVERSAIRE--- 

170 FOR 122 TO N 

188 FOR J=1 TO I-1 

190 1F SEB(I,J)=8 OR SEB(I,J)=1 THEN 228 

208 MENT JiMENT 1 

218 PRINT"VOUS NE POUVEZ PLUS JOUER, VOUS AVEZ PERDU":FOR 
Ixt TO 1008:NEXT I:RUN 

228 K=8 

238 KeK+111F KÇ3 THEN 258 

248 PRINT'LE JEU N'EST PAS FINI, VOUS POUVEZ JOUER “;J;l; 
* PAR EXEMPLE" 

238 INPUT "QUE JOUEZ-VOUS "JC 

268 IF C=8 AND DEB=8 THEN 498:REN LA MACHINE COMMENCE 

278 REN---A ET B SONT LES CODRDONNEES JOUES--- 

288 AxINT(C/18):B=INT(C)-18#A 

298 REN---TEST D'ERREUR SUR À ET B--- 

308 IF ACI OR ADN OR BC1 OR B)N OR AB THEN 238 

318 ON SEG(A,B)+3 6070 334,328,360,360,338,328 

328 PRINT"TRIANGLE":60T0 238 

338 PRINT"SEGMENT OCCUPE":6070 230 

348 REN---ENREGISTREMENT DU COUP--- 

338 REN---JOUE PAR L'ADVERSAIRE---- 

368 SEG(A,B)=2:SE6(B,A)=2 

378 REN---LE COUP JOUE INTERDIT D'AUTRES--- 

388 REN---SEGHENTS À L'ADVERSAIRE 

398 REN---RECHERCHE ET ENREGISTREMENT------ 

MAR REN---DE CES SEGMENTS---------"" 

AB FOR I=1 TO N 

428 ON SEG(A,1)+3 G0TO 470,478,438,438,458,478 

438 IF SEB(B,1)()2 OR I=A THEN 478 

AN SEB(A,1)=4#SEB(A,1)-1:SE6(1,A)2SE8(A,1):80T0 478 

458 IF I=B OR SEG(B,1)(8 THEN 478 

468 SEG(B,1)=4#SE6(B,1)-1:SE8(1,B)=SE6(B,1) 

470 MENT I 
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480 REN---A LA MACHINE DE JOUER--- 

498 DEB=1:MINeN: AA= 0: C= INT ((N-1) #RND (0) ) 

500 FOR 1=2 T0 N 

S1B B=14#C+2-(N-1)#INT((14C)/(N-1)) 

528 REN---A ET B SONT LES COORDONNES--- 

538 REN---ENVISAGEES PAR LA MACHINE---- 

548 D=INT((B-1)#RND (8) ) 

558 FOR J22 10 

S6B AzJ+D+1-(B-1)#INT((J4#D)/(B-1)) 

578 IF NIVC)3 THEN 718 

588 REN---CHOIX AU NIVEAU 3--- 

598 1F SEB(A,B)()@ THEN 728 

6n8 N°8 

618 FOR K=1 T0 N 

628 ON SEB(A,K)+3 BOTO 658,638,638,668,668,668 
638 1F SEG(B,K)=-2 THEN M=N+1 

648 BOTO 668 

658 1F SEG(B,K)C1 THEN M=W+1 

668 NEXT K 

678 1F M=û THEN 808 

688 1F M>=MIN THEN 768 

698 NIN=N:A2=A:B22B: 8070 768 

708 REN---CHOIX AUX NIVEAUX 1 ET 2--- 

718 1F SEG(A,B)=8 THEN 808 

728 1F SEG(A,B)()-1 THEN 768 

738 IF NIV=i THEN 808 

748 REN---CHOIX AU NIVEAU 2--- 

758 AA=A:BB=B 

768 MEXT JNEXT 1 

778 1F MINON THEN AzA21B=B2:6070 808 

788 IF AAC)8 THEN A=AA:B=BB: 6070 888 

798 PRINT'J'AL PERDU":FOR I=1 TO 1888:NEXT I: RUN 
888 PRINT'JE JOUE" ;AyB 

818 SEGIA,B)=-2:8E6(B,A)=-2 

828 REN---MODIFICATION DU JEU--- 

838 REN---QUAND LA MACHINE À JOUE--- 

848 FOR Ii TO N 

858 ON SEB(A,1)+3 60TO 868,868,868, 788,908, 908 
868 1F SEB(B,1)C)-2 OR I=A THEN 908 

878 SEB(A,1)=1-2#SE6(A,1)1SEB(1,A)=SE8(A,1):807T0 988 
888 1F I=B OR SEB(B,1))8 THEN 988 

898 SEB(B,1)=1-248E6(B,1):SE8(1,B)2SE6(B, 1) 
908 NEXT 1:6070 178 S. Antoine M 





MAPONNEMENTS LECTEURS PRIVIEEGIES 


Abonnement Abonnement 


lan 2ans 











=REMSEEREMEnœmmE 


réservé 
| A aux, 
bonnes raisons À abonnés: 
e 
vous abonner: À 


e Vous faites des économies f 

e Vousrecevez 
L'ORDINATEUR INDIVIDUEL H 
en avant- -première® 

e Tous les numéros 
parviennent à votre 
domicile 

e Prix ferme et définitif. 

e .. et en plus vous avez un 
cadeau 








= rend 
ABONNEMENT AMIS 


Parrainez 2 amis 

et vous pourrez 
recevoir un cadeau 
PSE SUIS 


Vo nditio o de celte 





Abonnement y Abonnement 










lan 


Le m'abonne pour | an 
(11 numéros) au prix de 


210 F° au lieu de 253 F. 

Mon économie est de 43 F (sur 
le prix de vente au numéro). 
Ci-joint, mon règlement indispensable par chèque 
libellé à l'ordre de L'Ordinateur Individuel. 


N' e m'abonne pour 2 ans (22 numé- 
ros) au prix de 406 F° au lieu de 
506 F. Mon économie est de 100 F 
sur le prix de vente au numéro. 
Ci-joint, mon règlement indispensable par chèque 
libellé à l'ordre de L'Ordinateur Individuel. 








Nom ______________________ Prénom Nom Prénom 

Adresse ATOS 
Code postal Ville Co EL VS 
Je choisis le cadeau suivant (cocher la case) : Je choisis le cadeau suivant (cocher la case) : 

— le numéro spécial 40 programmes O - le numéro spécial 40 programmes 

- ou 2 numéros (à choisir page 15) O - ou 2 numéros (à choisir page 15) 0 


- ou le cadeau-surprise 


* Oftre valable jusqu'au |*' septembre 1985 

Tarif valable pour la France métropolitaine. Etudiant 320 FF (justificatif indis- 
pensable), Etranger : BELGIQUE. 3 380 FB, Etudiant 3 080 FB, Soumillion. 28, avenue 
Massenet, 1 190 Bruxelles. Versement à la Société Générale n° 2100405835-39, SUISSE 
130 FS, Etudiant 100 FS, 19. route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne 
Versement à la Caisse d'Epargne et de crédit n° 10-432, CH 1052 Le Mont, compte 
courant n° 650-156-7, CANADA, 58 $C, LMPIL 9345, rue de Meaux, Saint-Léonard 
Québec HIR3H3, Tout autre pays : 620 FF, Etudiant, 495 FF. Par avion : 765 FF, Etudiant 
660 FF.* Etudiant : justiticatif indispensable 


- oule cadeau-surprise 


* Oftre valable jusqu'au le septembre 1985 

Tarif valable pour la France métropolitaine, Etudiant 165 FF (justificatif indis- 
pensable). Etranger : BELGIQUE, 1 750 FB, Etudiant, 1 595 FB, Soumiilion, 28. avenue 
Massenet. 1190 Bruxelles. Versement à la Société Générale n° 2100405835-39. SUISSE 
67,5 FS, Etudiant. 52,5 FS, 19. route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne 
Versement à la Caisse d'Epargne et de crédit n° 10-432, CH 1052 Le Mont. compte 
courant n° 650-156-7. CANADA. 30 $C, LMPI, 9345, rue de Meaux. Saint-Léonard 
Québec HIR3H3 Tout autre pays 320 FF, Etudiant, 256 FF. Par avion 395 FF, Etudiant 
353 FF." Etudiant : justificatif indispensable 


die os masmuurx 


Parrainez 2 amis Je choisis mon cadeau 


Vous êtes abonné ou vous venez de vous abonner. 
Indiquez-nous l'adresse de 2 amis qui peuvent être 
intéressés par L'Ordinateur Individuel : 


PREMTR AMI: 

Nom, prénom 

Adresse 

Code postal ____________ Ville 


2anciens 


numéros 
(voir pagel3 ) 


DEUXIEME AMI : 
Nom, prénom 
Adresse __ 

Code postal _______________ Ville 





Directement de votre part, nous leur enverrons une 
proposition d'abonnement, et si l'un des deux 
s'abonne, vous recevrez un cadeau super-surprise. 

Votre adresse : (indispensable pour vous envoyer 
votre cadeau). 
Nom, prénom 
Adresse 
Code postal _________ Ville 


programmes 
Ou 


Le cadeau- 
surprise L 
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SATURNE BIEN ROND 


Voici une belle et longue routine capable 





de dévoiler les volumes d’une silhouette 
et de camoufler la face cachée d'une forme : 


rien que de très 


udique et captivant ! 





oo l'on représente des 
surfaces en perspective, le 
point le plus délicat est la 
reconnaissance des parties 
cachées. Les reproduire en 
pointillé ou pas du tout pose le 
même problème : découvrez 
plutôt comment le tourner avec 
ce programme ; il utilise des 
instructions propres aux tables 
traçantes CGP 115 de Tandy et 
X-710 de Canon, dont la 
traduction suit : la transcription 
est un jeu d'enfant sur un écran 
haute-résolution ou une autre 
table-traçante. Joyeuse 
transposition ! 

LPRINT CHRS (18) PASSE EN 
MODE GR 

LPRINT «M »X, Y POSE LE 
CURSEUR EN (X, Y) 

LPRINT « D »X, Y TRACE UN 
SEGMENT DE DROITE DU 
CURSEUR A (X, Y) 

LPRINT « CO » COULEUR DU 
STYLO 

LPRINT «A» REVIENT AU 
MODE TEXTE 















"PERSPECTIVE DE SATURNE SUR TRS SQ 
: "AUTEUR : PHILIPPE BOULET 
* "COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 









CLS 
110 PI=7T. 1415927 

120 NP=100 

130 PRINT TAB(Z20):"# PERSPECTIVE DE SATURNE +" 

140 LPRINT CHR$&(1E); "A" 

15 PRINT 192, “RAYON DE LA PLANETE ? NICHRSE TL); 

160 LINEINPUT R$ 

17Q ReVALCRS ) 

180 IF R(1 ON R)240 OR R{YINTC(R)I) THEN 150 

190 PRINT 9256, "INCLINAISON DE LA PLANETE ? ":CHRS#CZ) 5: 
200 LINEINPUT Ré 

210 AI=VALCR#) 

220 IF AL(-90 DR ÀA1)90 THEN 19@ 

230 A1=A1 *P1/1680 

275 S1=SINCAL) :C1=C0S (A! 

248 PRINT"'COULEUR DE LA PLANÊTE ? "5 

250 R#$=INKEYS 

260 IF R$="N" PRINT "'NOIR":CP#="CO":GOTO zpù 

270 IF R$="EH" PRINT "BLEU":CP$S="C1":GOT0 7:0@ 

260 IF R$="V" PRINT "VERT':CP#="C2":G0T0 m9 

290 IF R$S="R" PRINT "ROUGE":CPé="C7" ELSE 250 

300 PRINT "PRESENCE D'ANNEAUX CO/N) 2 ": 

T10 RS=INKEYS 

320 IF R4="N" PRINT "NON'":NA=-1:G0T0 S0G 

330 [IF R$="0" THEN PRINT "OUI":NA=:Q ELSE 710 

349 PRINT 9512, "RAYON INTERIEUR DES ANNEAUX ? "iCHRSCZE) 5 
350 LINEINPUT R# 

360 Ri=VALCR#S) 

370 IF R1CR OR R1:999 OR R1 (CO) INTERI) THEN 740 

T8 PRINT 4576, "RAYON EXTERIEUR DES ANNEAUX ? ":CHR#&t 105: 
390 LINEINPUT Ré 

409 RI=VALCRS) 

410 IF RZ2(RI OR R22999 OR RZ()INT(RZ) THEN 700 

420 PRINT &64@, “COULEUR DES ANNEAUX ? ":CHR#(%:) 

TO RÉS=INHEYS 

46@ PA=RI1#R1# 61461 

450 PB=RZ+R2#6:#S1 

46O IF R$="N" PRINT "NOIR" :CA$="C@":GOTO S00 

470 IF R$="E" PRINT "BLEU" s:CA$="C1":GO0TO0 500 

480 IF Ré="V" PRINT "VERT" :CA$="C2":GO0TO 500 

490 1F R$="R" PRINT "ROUGE" :CA$="CZ" ELSE 470 

900 LPRINT CHR$#CIB) ;"1I" 

510 LPRINT CP# 

520 1F NA THEN RZ=240 
LPRINT "M24@, “;-R2 
















































mm CONTOUR = 


FOR 1=Q TO NP 
580 S=I+Z2*PI/NP 
590 PX=-R#COS(S) 
PY=R#SINtCS) 
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619 IF NA THEN 648 
620 PRePYePY+S1eS1+PrePx 
630 IF PXæS1=(0 AND PR)=PA AND PFR=(PB THEN PP=Q :G607T0 670 
E4@ IF PPu-1] THEN A$="D" ELSE A$="mM" 
ESD LPRINT AS3PX:", "5 PY 
Eee PF-=-! 
670 MÆXT 1! 
SR 1F NA THEN 70 
D * ——-_——"—— RENE ——————————" —— 
708 LPFRINT CAS 
710 RA=RI 
720 GOSUB 12000 
RA=R2 
GOSUB 10900 
PRINT 
PRINT "CERCLES ET MERIDIENS ? “1 
RS=INXEYS 
IF R6="N" PRINT * ":G0T0 560€ 
IF Ré="0" PRINT "OUI" ELSE 779 
mmmmmmmmemmmemmemmmmmse CERCLES œmrmsmemm ea aa ce os mimi ame om 
LPRINT CPS 
FOR n=-3eP]1/8 TD J3eP1/E STEP PFI/8 
Pre 
FOR 1-8 70 NP 
B=]e2eP1/NP 
GOSUB 20000 
IF PZ(@ THEN PP+@:G60T0 949 
IF NA THEN 910 
PRaPYsPyYeSieS1+PrePx 
IF PreSi= (8 AND PR)=PA AND PRe (PB THEN PP=O:0010 348 
IF PP=-] THEN Abe" D" ELSE As=""H" 
LPRINT ASIPL:", "5 PY 


MERIDIENS mme anne me anne mins om mens 2 ou ee 
FOR B=-74P1/8B TO P1/2 STEP P1/8 
PP=@ 
FOR 1=0 T0 NF 
Anle2ePi1NF 
GOSUE 290060€ 
IF PZ(D THEN PPa«aÿ:COTO 1830 
IF NA THEN 1960: 
PRaPY4+PY451+S1+PXwPX 
IF PXaSi=(D AND PR)=PA AND PRie PB THEN PPeÿ: GOT 1990 
IF PP=-1 THEN At="D" ELSE A$="M" 
LPRINT ASIPX:",":PY 
PPe-] 
1890 NEXT 1! 
1100 MEXT B 
5000 
5019 LPRINT "M-240, "3-R2-150 
5028 LPRINT "CO" 
SOIe LPRINT “A” 
Sese =D 
a - PNEU) 
Pe-@ 
FOR 1=@ TO NP 
Se]1+2*PI/NP 
PX=RA+COS(S) #51 
PY=RA+SINCS) 
PZ=RAeCOS(S) «C1 
IF PZ)E AND PhePlePYePY(ReR THEN FPaÿ :G0TD 18118 
IF PP=-] THEN f8="D" ELSE A4=""M" 
LPRINT AS:PXI",. "5 PY 
PP=-] 
NEXT 1! 


eY 


Xi=fRe CDS (AR) COS (B) 
Yi=ReCOS(R)eSIN(B) 
Zi=ReSINCAR) 
PX=eZieCi1-Yiesl 
PY=-Xx1 
PZ=Y1eC1+Z1+S1 
RETURN 











LOUISIANE 














Auriez-vous le cœur à la Bagatelle ? Vous ne croyez pas 











si bien dire. Bienvenue dans le Sud des Etats-Unis d'Amérique. Nous sommes en 











une parcelle de mille hectares sur le Mississipi — et de solides ambitions. 





a seule culture rentable est 

celle du coton, l'or blanc du 
planteur ; la récolte et la vente 
de cette dernière se pratiquent 
au mois de septembre, mais ne 
vous en préoccupez pas, votre 
intendant vous tiendra au 
courant. 
Avec «l'ordinateur » dans le 





rôle de l'intendant, pour la 
somme modique de 7 200 $ par 
an, il vous bombarde à son gré 
de rapports, bulletins 
d'informations spontanés et 
courbes économiques. Par 
chance, la Banque de l'Union 
veut bien vous accorder un 
crédit pour démarrer la 


63 


plantation dont vous rêvez. 

Celle-ci se nommera Bagatelle. 
De temps en temps, en fin 
d'année, vous recevrez la 
somme de 50 000 $ provenant 
d'un parent éloigné dont vous 
ne vous souvenez plus du nom. 


C. Lesur 
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LOUISIANE 


18 REM “PROGRAMME LOUISIANE 
28 CLEAR 158 

30 GOSUB 4878: TITRE 

TE 

50 REM ‘INITIALISATION" 

68 RANDOM 

70 DIN MO$(12) 

80 H0$(1)="Janvier":M0$(2)="Fevrier":M0$(3)="Nars" 

90 MO$(4)="Avril":M0$(5)="Mai":M0$(6)=" Juin" 

188 M0$(7)="Juillet":M0$(8)="Aout":N0$(9)="Septeabre" 

118 M0$(19)="Octobre":N0$(11)="Novesbre":M0$(12)="Deceabr 
e* 

128 ARD=8:EPT=8: TRN= 18000: ANS=1776: DAR=8: RMB=0: MO=10:NES=0 
130 DM=600: DN=7280: NS=0:P=8: NGA=D: TE=0: DE=Q 

148 FOR T=1 TO 4:ANS=ANS+1:Y1(T)=36: ANS(T)=ANS:NEXT 

158 RN=RND(3)+1:R6=(RND(5)+4)#108 


178 REM ‘MENU PRINCIPAL" 

188 GOSUB 3S30:REM ‘EMPRUNT 

198 CLS 

208 PRINTE 88,"- - LOUISIANE --* 
218 PRINT 

228 PRINTE 232,"Date : ":MOS$(MO);" ":ANS 

238 PRINT TAB(5) "A vous de gerer Bagatelle !* 
248 PRINT:PRINT 

258 PRINT TAB(15) “{ 1 ) 
tation." 

268 PRINT TAB(15) “(2 ) 
oton." 

278 PRINT TAB(15) "( 3 ),,.,,.,.., Consandes diverses," 
288 PRINT® 719,"Argent disponible :";ARD;"$," 

298 PRINTE 783,"Depense annuelle :":;DN;"$.": 

308 PRINT:PRINT 

310 PRINT TAB(5) "Pressez le chiffre correspondant à votr 
e choix ?" 

328 TE=TE+] 

338 X$=INKEYS 

340 IF X$="1" THEN 1198 ELSE IF K$="2" THEN 1468 ELSE IF 
X$="3" THEN 1980 

358 IF TE(68 THEN 328 

368 60T0 448 

370 PRINTE 232,"Date : ":MOS$(MO);" "sANS:" "; 

388 PRINT 719, "Argent disponible :";ARD:"$, 

398 TE=Q 

408 60T0 328 


Etat general de la plan 


Tableau des ventes du c 


438 REM ‘VARIABLES SE RAPPORTANT AU TEMPS” 

440 MO=MO+! 

450 ARD=ARD-DA 

468 IF ARDCB THEN GOTO 3928 

470 1F MO=9 THEN GOSUB 688:60SUB 3238:60T0 1468 
480 IF NO=13 THEN ANS=ANS+1:N0=1:ELSE 378 

498 IF RND(5)=1 THEN ARD=ARD+58800 

588 IF P=@ THEN DAR=DAR-1 ELSE 378 
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ai =, = 


S18 1F DAR=@ THEN 6010 37 


548 REM ‘CLASSEMENT DES VARIABLES" 

558 ANS(5)=ANS:CRT (5) =CRT:BP(5)2BP:Y1(5)=V1 

568 FOR T@=1 TO 5 

578 NUTO)=ANS(TB):B(TB)=CRT(T@):C (TR) =BP (TB) :HITO)=Y1 (TB) 
588 ANS(TS-1)=N(T@) :CRT(TO-1)=B(T8) : BP(T@-1)=C(T@) :Y1(TB- 
1)=H(T8) 

590 NEXT TQ 

b@B RETURN 

618 BV(S)=BV:BN(5)=BN 

628 FOR TB=1 T0 5 


638 D(T)=BV(TB):F (TB) =BNITO) 

648 BV(TB-1)=D(TB):BN(TB-1)=F (TB) 
650 NEXT T8 

b6B RETURN 


688 REM "CALCUL PRODUCTION COTON‘ 
698 CRT=210+RND (25) 
708 CLS 


718 PRINTE 88,"- - LOUISIANE --" 

720 PRINTE 192, “Date : ";MO$(MO);" “; ANS 

738 PRINTE 238,"Cours du coton :";CRT;"$," 

748 FOR X0=8 TO 127:SET(X@,13):NEXT 0 

750 FOR Y@=14 T0 17:SET(127,Y@):NEXT Y8 : 

760 FOR 18=127 TO @ STEP-1:SET!X0,18):NEXT X@ 
770 FOR Y@=17 TO 14 STEP-1:SET(@,YB):NEXT VO 

788 FOR Y@=12 TO 7 STEP-1:SET (75,Y@):NEXT VB 
790 FOR 18=75 TO 122:SET (X@,7):NEXT X8 

808 FOR Y8=7 TO 12:SET (122,Y@):NEXT Y@ 

818 IF NGAC(RG#TRN) THEN 850 

820 IF NESC(RN#TRN) THEN 850 

838 BP=TRN 

848 60T0 958 

858 REM ‘RDT NON MAX’ 

868 IF NGA)(RG#TRN) THEN FI=(RG#TRN) ELSE FI=NGA 
870 IF NES)(RN#TRN) THEN F2=(RN#TRN) ELSE F2=NES 
888 BP=INT(((F1/R6)+(F2/RN) )/2) 

898 6070 950 












908 Y1=36-INT((BP/TRN) #27) 
918 60OSUB 548 

928 N6A=Q 

930 NS=NS+BP 

948 RETURN 

950 REN ‘FACTEURS ALEATOIRES 

968 T=8:M$="" 

978 IF NGA=@ OR NES=0 THEN M$="Aucune graine de coton n'a 
ete ensesencee, “:BP=@:6070 1128 

988 HA=RND (18) 

990 IF HA=1 AND RND(3)=1 THEN 1000 ELSE 1010 

1080 M$="La oaladie à detruit 50 1 de votre recolte, * 
1818 BP=INT(BP#,5) 

1928 GOTO 1129 

1038 IF HA=2 THEN 1048 ELSE 1070 

1848 N$="Les pluies abondantes ont coaproais 28 ? de votr 
e recolte. 

1050 BP=INT(BP-(BP+#28/100)) 

1860 G0TO 1128 

1078 IF HA=3 THEN 1080 ELSE 1110 

1088 N$="Le teaps chaud augeente votre recolte de 15 %, " 
1098 BP=INT(BP+(BP#15/108)) 

1108 G0TO 1120 

1118 M$="La recolte se deroule norsalesent, * 

1120 FOR PL2=382 T0 INT(320-((LEN(MS)-64)/2)) STEP -1 

1138 T=7+1 

1148 PRINTR PL,LEFT#(MS$,T); 

1150 FOR TPS=1 TO S@:NEXT TPS 

1168 NEXT PL 

1178 6010 980 





































1190 REM ‘SITUATION GENERALE ‘ 

1288 CLS 

1210 PRINTE 16,"- - LOUISIANE --" 

1220 PRINT 

1230 PRINT TAB(18) “Domaine de Bagatelle : Situation gene 
rale," 

1248 PRINT:PRINT "Rdt.de la plantation (%)* 

1258 FOR 10=117 TO 64 STEP-1:SET (18,36): NEXT 18 

1268 FOR VB=36 TO 13 STEP-1:SET (83, VB): NEXT YO 

1278 SET(62,36):SET(62,25):SET (82,13) 

1288 PRINTE 796,"@";:PRINTE 539,58" ;:PRINTE 282, "188": 
1290 7=1 

1308 FOR PL=864 TO 885 STEP 7 
1318 PRINTE PL,ANS(T) 

1320 T=7+1 

1330 NEXT PL 

1348 T=1 

1358 FOR X1=68 TO 118 STEP 14 
1368 FOR Y@=36 TO Y1(T) STEP-1 
1378 FOR X8211 TO 11+2 

1380 SET (X8,Y@) 

1398 NEXT 18,8 

1408 T=7+1 
1418 NEXT 11 

















65 


1428 PRINTE 968, "Pressez (NEW LINE) pour continuer 7", 
1438 IF INKEYS()"" THEN G0TO 198 ELSE 1430 
1448 GOTO 144Q 


1468 REM ‘TABLEAU VENTE COTON’ 

1470 CLS 

1480 PRINT TAB(18) *--} TABLEAU DES VENTES DU COTON «--" 
1490 PRINTE 128,"Date : ":PRINT 135,M0$(MO);" “ANS 
1508 PRINT 157, "Argent disponible :":ARD;"$" 

1518 PRINT 192, "Annees" 

1520 T=! 

1530 FOR PL=213 TO 243 STEP 18 

1540 PRINT PL,ANS(T) 

550 T=7+1 

1568 NEXT PL 

1578 PRINTE 256, "----- fee ds 


dm és. +". 


1588 PRINTE 328, "Cours du coton ! ! ! 
1 .. 


1598 T=1 

1680 FOR PL=348 T0 378 STEP 10 
1618 PRINTS PL,CRTIT) 

1628 T=T+1 

1638 NEXT PL 


1658 PRINTE 448, "Nbr.de balles prod. ! 
1660 7=! 
1678 FOR PL:468 TO 498 STEP 18 
1680 PRINTE PL,BP(T) 
1690 T=T+#1 
1788 NEXT PL 
1718 PRINTE 512," 
1 


17 

1738 T=1 

1748 FOR PL2:596 TO 626 STEP 18 
1758 PRINT PL,BVIT) 

1760 T=T+1 


1770 NEXT PL 
1708 PRINTE 64". ss s 


1798 PRINTS 784, "Benefice net 
' [LI 


1888 7=1 

1818 FOR PL=724 T0 754 STEP 18 

1828 PRINT PL,BN(T) 

1838 T=7+1 

1848 NEXT PL 

1850 PRINT 748," -------"""" ds. =. + 
=... nr otntenies 0) | 

1868 PRINTE 832, "Nosbre de balles en stock :";NS 

1870 PRINTE 968, "Pressez (NEW LINE) pour continuer 7°; 
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DUB nes 


1888 IF INKEYS(>"" THEN G60TO 198 ELSE 1888 


ge ee SR 2358 REN “ACHAT D'ESCLAVE” 

1908 REX "COMMANDES DIVERSES" 2368 N=0 

1918 CLS 2370 IF NES)1 THEN P$="s" ELSE P$=°* 

1928 PRINTE 88,"- - LOUISIANE --* 2388 CLS 

1938 PRINT:PRINT 2390 PRINTE 88,"- - LOUISIANE --* 
1948 PRINT "Six differentes actions sont possibles :* 2408 PRINT 


1958 PRINT 
1968 PRINT TAB(18) *{ 1 )...,,Achat de terrain (78 $ /h 


2418 PRINT “11 y à actuellesent";NES:"esclave";P$;" pour" 
3TRN; "ha de plantation." 


a)" 2428 PRINT 
1978 PRINT TAB(18) “{ 2 ),,,..Achat d'esciave (288 $)° 2438 PRINT “Vous devez trouver le nosbre d'esclaves neces 
1988 PRINT TAB(18) “{ 3 ).....Achat de coton (1 $ / 28 saire,* 


Kg de graine)" 
1990 PRINT 
2888 PRINT TAB(18) “1 4 )..,,.Vente de terrain (78$#/h 


2448 PRINT “par hectare pour obtenir un rendesent saxiaun 


2458 PRINT 

2468 PRINT “Chaque esclave coute 288 $ et vous revient à 
1 $ par sesaine." 

2478 PRINT “Votre capital est de";ARD;"$." 

2488 PRINT: INPUT "Cosbien d'esclave desirez-vous acquerir 
“eN 

2498 N=INT(N) 

2508 IF NCE THEN 2388 

2518 PN=N+288 

2528 IF (ARD-PN))=108 THEN 2558 

2538 PRINT “Vous n'avez pas assez d'argent disponible !* 
2540 60SUB 4610:6070 1908 

2550 ARD=ARD-PN 


a) 

2018 PRINT TAB(18) *{ 5 ).....Vente d'esclave (158 $)° 
2028 PRINT 

2036 PRINT TAB(18) *{ 6 )...,..Retour au menu principal" 
2040 PRINT 

2058 PRINT "Pressez le chiffre correspondant à votre choi 
x 2°: 

2068 1S=INKEYS 

2078 IF 19="]1" THEN 2118 ELSE IF X$=°2" THEN 2358 ELSE IF 
K$="3" THEN 2618 

2080 IF X$="4" THEN 2868 ELSE 1F X#="5" THEN 3860 ELSE IF 
1#="46" THEN 198 


2098 6010 2868 2568 NES=NES+N 

1 RTS 2578 DM (NES+4) +608 

2118 REN “ACHAT DE TERRAIN" 2588 DN=Dms12 

2128 SUP=RND (308) : SC=0 2590 60T0 1900 

2130 CLS 2608 ‘------"mmnnnnmnnnmmmnnnmnnnnmnnnnnnnesss 
2148 PRINT 88 ,"-- LOUISIANE --"* 2618 REM ‘ACHAT DE COTON’ 

2158 PRINT:PRINT 2420 M: 

2168 PRINT “La superficie actuelle de Bagatelle est de";T 2838 CLS 

RN; "ha." 2648 PRINTE 16,°- - LOUISIANE --" 

2178 PRINT 265€ PRINT 


2180 PRINT "Dans la region seulesent";SUP;"ha sont à vend 
re," 
2198 PRINT “au prix de 70 $ par hectare." 


2668 PRINT "La recolte du coton se pratique au sois de se 
ptesbre," 
2678 PRINT “La superficie de Bagatelle est actuellesent d 


2208 PRINT 8": TRN: “ha. 
2218 PRINT “Votre capital est de*;ARD; "5." 2688 PRINT 
2228 PRINT 


2698 PRINT “Vous devez trouver la aasse de graines necess 
aire," 
2788 PRINT "par hectare pour obtenir un rendesent saxiaus 


2238 INPUT “Quelle surface cultivable voulez-vous acqueri 
r 30 


2248 SC=INT (SC) . (15/28 Kg).° 

2258 SC=INT (SC) 2718 PRINT 

2268 1F SCC8 OR SC)SUP THEN 2138 2728 PRINT “Vous disposez deja de";N5A; "kg de graine de c 
2278 SAR=SC+78 oton,* 


2288 IF (ARD-SAR))108 THEN 2318 

2298 PRINT “Vous n'avez pas assez d'argent disponible !* 
230 60SUB 4618:6070 1988 

2318 TRN=TRN+#SC 

2328 ARD=ARD-SAR 

2330 6070 1988 


2730 PRINT 
2748 PRINT “Votre capital est de"; ARD;°4.°" 

2758 INPUT "Quelle quantite de coton voulez-vous acheter 
x 

L 
2768 M=INT (M) 
2770 IF M@ THEN 2638 





2788 PH=INT(Ms,85) 

2790 IF (ARD-PM))=108 THEN 2828 

2888 PRINT "Vous n'avez pas assez d'argent disponible !" 
2818 GOSUB 4618:6070 1988 

2820 ARD=ARD-PM 

2830 NGA=NGA+A 

2848 G60TO 1988 


2860 REM ‘VENTE DE TERRAIN” 

2878 STV=@ 

2888 CLS 

2898 PRINTE 88,"- - LOUISIANE--" 

2988 PRINT:PRINT 

2918 PRINT “La superficie actuelle de Bagatelle est de";T 
RN; "ha." 

2928 PRINT “Chaque hectare vendu vous rapporte 78 $," 
2930 PRINT 

2948 PRINT “Vous devez obligatoiresent garder au soins 18 
8 ha." 

2958 INPUT "Quelle surface de terrain voulez-vous vendre 
"iSTV 

2968 STV=INT(STV) 

2978 IF STV)=8 AND (TRN-STV))=2180 THEN 3008 

2980 PRINT:PRINT "Vous ne pouvez pas faire cela !* 

2998 GOSUB 4618:60T0 1988 

3000 TRN=TRN-STV 

3818 ARD=ARD+(STV#70) 

3828 PRINT:PRINT “Votre nouveau capital est de";ARD;"$." 
3038 GOSUB 4618:6070 1908 


3040 ” 


3050 REN ‘VENTE D'ESCLAVE‘ 

3868 CEV=8 

3070 CLS 

3088 PRINTE 88,"- - LOUISIANE --" 

3090 PRINT:PRINT 

3188 PRINT "Le nosbre d'esclaves presents à Bagatelle est 
de";NES 

3110 PRINT "Chaque hosne vendu vous rapporte 158 $." 
3128 PRINT 

3138 INPUT "Cosbien d'esclaves voulez-vous vendre ";CEV 
3140 CEV=INT (CEV) 

3150 IF CEVCO OR CEVDNES THEN 3868 

3160 NES=NES-CEV 

3170 DH=(NES#4)+600 

3180 DN=DM#12 

3198 ARD=ARD+(CEV#150) 

3208 PRINT:PRINT “Votre nouveau capital est de"; ARD; "5." 
3210 GOSUB 4610:60T0 1908 





3238 REM ‘VENTE DE COTON‘ 

3240 VB=0:PB=0:C=1 

3258 IF BP)1 OR NS)1 THEN P#="s." ELSE P$="," 

3268 PRINTE 448, “La production annuelle de Bagatelle s'e 
leve a':BP;"balle":;P$ 

3278 PRINT “Votre stock actuel est de";NS;"balle";P$ 

3280 PRINTE 576,CHR$# (31) 

3290 INPUT *=2=) Cosbien de balles voulez-vous vendre “;V 
B 

3308 VB=INT (VB) 

3310 IF VB)NS OR VBC@ THEN PRINTE 576,CHR$(31):VB=@:60T0 

3290 

3328 INPUT *=2=) Quel est votre prix de vente par balle * 
:PB 

3330 PB=INT (PB) 

3548 IF PBCB THEN PRINTE 704,CHR#(31) ;CHR# (27) :PB=8:60T0 

3320 

3358 PRINT:PRINT “Voulez-vous changer quelque chose ? (0/ 
N) 2° 

3368 RS=INKEYS 

3378 IF R$="0" THEN 3288 ELSE IF R$()"N" THEN 3368 


3380 1F PB)CRT THEN 3428 
3398 BV=VB 


3408 BB=BV#CRT 
3418 60TO 3478 
3428 EE=PB-CRT 


3438 IF EE)=188 THEN BV=8:607T0 3468 
3448 IF EE(=15 THEN PB=INT(PB+(EE#1.5)) 


3458 BV=INT(VB-(VB#EE/188) ) 
3460 BB=BV+PB 

3478 BN=INT (BB-((BB#5) /188)) 
3488 NS=NS-BV 

3498 ARD=4RD+BN 

3588 G0SUB 610 

3518 RETURN 


3538 REM "EMPRUNT À LA BANQUE” 

3548 CLS 

3558 PRINTE 144,"-- LOUISIANE --" 

3568 PRINT:PRINT 

3578 PRINT “La banque vous propose differentes foraules d 

e credits," 

3588 PRINT 

3598 PRINT TAB(18) *-1- 
ans." 

3608 PRINT TAB(18) "-2- .,.,, 400000 $ À en 7 
ans." 

3618 PRINT TAB(18) “-3- ,,,,, 500000 $ » en ? 
ans." 

3628 PRINT 

3638 PRINT “au taux de 8.5 7." 

3648 PRINT:PRINT 

3650 PRINT "Frappez le nusero correspondant a l'option ch 
oisie ?* 

3668 X$=INKEYS 


300088 $ resboursable en 5 
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490 FOR Y8=11 TO @ STEP-1:SET(@,Y@):NEXT 
4180 FOR 10=8 TO 127:SET(X@,8):NEXT 

4110 FOR Y=8 T0 47:SET(127,V8):NEXT 

4120 FOR X0=127 TO 36 STEP-1:SET(X8,47):NEXT 

4130 FOR NB=15368 TO 16383 

4140 READ À 

4150 IF A(64 THEN NB=NB+A-1:60T0 4178 

4160 POKE NB,A 

4170 NEXT NB 

4188 DATA 12,176,148,131,131,131,140,144,45 

4190 DATA 11,158,129,91 

4200 DATA 10,154,26,136,26 

4218 DATA 9,154,9,176,140,131,131,141,144,2,168,184,134 
4228 DATA 128,168,134,2,160,134,3,152,165,22 

4230 DATA 128,152,131,131,131,131,140,176,158,4,138,131,1 
37 

4240 DATA 144,168,134,130,140,176,176,184,177,140,134,153 
4250 DATA 129,128,152,151,2,184,133,2,168,134,128,138,148 
4260 DATA 2,140,148,140,140,148,140,13 

4278 DATA 130,164,176,176,176,148,131,128,138,131,148,176 
4288 DATA 176,176,176,148,129,138,180,176,176,148,129,5 
4290 DATA 178,176,176,134,166,176,176,134,138,176,176 
4308 DATA 148,177,176,176,152,133,21 

4318 DATA 31,136,32 

4328 DATA 128,137,191,134,10,137,191,134,13,152,129,3,176 
4330 DATA 148,131,131,141,144,3,152,134,131,131,172,152 
4348 DATA 131,131,137,148,128,176,140,131,131,131,172,3 
4350 DATA 2,191,5,168,144,5,191,3,140,140,140,148,140,148 
4368 DATA 3,160,158,3,168,134,3,160,152,129,128,168,134 
4378 DATA 3,168,134,3,152,161,150,141,176,176,152,142 
4380 DATA 129,3 

4390 DATA 2,191,3,168,148,131,131,140,144,3,191,9,176,176 
4400 DATA 148,129,141,176,176,140,139,180,176,176,148 
4410 DATA 129,173,176,140,129,3,152,129,3,166,176,142 
4420 DATA 176,176,176,132,6 

4430 DATA 2,191,2,176,149,160,190,189,144,178 

4440 DATA 176,2,191,48 

4508 DATA 140,140,148,140,148,144,170,46 

4518 DATA 149,150,178,179,179,179,179,179,179,179,179 
4528 DATA 179,179,179,179,177,169,178,46 

4530 DATA 130,148,148,140,148,148,140,140,148, 148,148 
4540 DATA 148,148,140,148,140,148,129,46 

4558 PRINT 856, "Pressez (NEN LINE) pour commencer ?"; 
4568 FOR TPS=1 TO 458:NEXT 

4578 PRINTE 856," "s 
4588 FOR TPS=1 TO 158:NEXT 

4598 IF INKEY$()"* THEN RETURN ELSE 4558 

AOUQ ‘----"---""--rronmnnmenennmnnnnennenne 

4610 REN ‘MESSAGE DIVERS” 

4628 PRINT:PRINT "Pressez (NEW LINE) pour continuer ?* 
4630 IF INKEYS()"" THEN RETURN ELSE 4638 


3678 IF X8="1" THEN EPT=300008:DAR=5:ELSE IF X$="2" THEN 
EPT=400000: DAR=7:ELSE IF X$="3" THEN EPT=580008:DAR=9:ELS 
E 3668 

3680 ARD=ARD+EPT 

3698 RMB=EPT+((EPT#8.5)/100) 

3708 DE=DAR 

3710 RETURN 

3728 ‘---mmmmmmnenonmmmenmenennmenmemmenese 

3730 REM ‘REMBOURSEMENT DE L'EMPRUNT" 

3748 CLS 

3750 PRINTE 88,"- - LOUISIANE --" 

3768 PRINT 

3770 PRINT “Date : ";MO$(MO);" “ANS 

3780 PRINT 

3798 PRINT "En qualite d'intendant et de juriste," 

3800 PRINT "je se perset de vous rappeler qu'il y a";DE;* 
ans," 

3818 PRINT "en 1788 ,vous aviez esprunte la sosse de*;EPT; 
A . 

3820 PRINT “Par consequent la banque de L'Union vous desa 
nde," 

3830 PRINT ‘le resboursensent de cette sonse à un taux de 
8,5 à d'interet," 

3840 PRINT "soit en tout";RMB;"$." 

3850 IF ARD-RMB(=DM THEN PRINT “Je crains fort que l'etat 
de vos finances ne puisse supporter, une telle depense 
3868 60SUB 4610 
3870 ARD=ARD-RHE 


3888 IF ARD>8 THEN 3988 
3890 60T0 3928 


3980 P=1:6070 198 

3910 ‘---------"“onememmmnmncnsnemmnmmenmencenes 
3928 REM ‘PERTE PAR DETTE‘ 

3930 IF NO0=13 THEN H0=12 

3948 CLS 

3950 PRINTE 88,"- - LOUISIANE --" 

3960 PRINT:PRINT 

3978 PRINT "Date : ";MO$(NO);" “ANS 

3980 PRINT 

3998 PRINT “Vos dettes s'elevent a"; ABS(ARD); "4," 
4000 PRINT "La banque de L'Union vous refuse tout credit. 




















































































































































































4818 PRINT “Vous etes dans l'incapacite de gerer Bagatell 
éd" 

4028 PRINT 

4830 PRINT “Votre installation dans le sud des Etats Unis 
est un echec." 

4040 PRINT:PRINT “Voulez-vous tenter de nouveau votre cha 
nce ? (O/N) ?* 

4458 RS=INKEVS: IF R$="0" THEN RUN ELSE IF R$="N* THEN CLS 
:END: ELSE G60T0 4858 € 
MED ‘----"-"-" "nn nn [. K-] 
4070 REM ‘TITRE 

4088 CLS ; 
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Huit Dames à disposer 
en 


HUIT DAMES 
A CASER 





harmonie sur un échiquier, 





de_façon qu'aucune n'aie prise 


sur l'autre. le problème 





osé par le Dr Nauck en 1850 


assionna le mathématicien 





Gauss qui ne dénombra qu'une partie 


des solutions. 

Le programme suivant, 
stupéfiant de concision, 
les trouve toutes, bien sûr. 


ous allons le commenter 

jusqu'à la lie. 
Les dames sont installées dans 
les lignes 10 à 60 (en 20, la 
première dame vient en pre- 
mière position). Les trois lignes 
suivantes vérifient que la position 
est valide. En cas de menace de 
là part d'une autre Dame, on 
saute en 90 où la Dame est 
remontée d'une case (il faut 
tester en 100 si l'on quitte l'échi- 
quier : dans ce cas de figure on 
reprend la boucle en 30). La 
présence éventuelle d'une 


Er LS 
C1 


Dame (Q = 0) nous renvoit en 90 
jusqu'à ce que P s'annule., On 
rencontre une solution lorsque 
Q = 8, bien sûr. La recherche 
continue après la ligne 80 en 
déplaçant sa Dame de la sep- 
tième colonne d'une case vers le 
haut. On balaie ainsi tout l'éven- 
tail des solutions possibles ; il y 
en a 92 à distinguer, cependant il 
faut éliminer les solutions identi- 
ques à une rotation près où par 
symétrie : on retrouve des 
groupes de huit sous-ensembles 
équivalents, comme par exemple 


69 








le suivant : 
15863724 
57263148 
42736851 63571428 
84136275 17582463 
D'une colonne à l'autre on déduit 
les solutions à une rotation à 
angle droit près. 

On identifie donc 12 familles de 
Solutions, dont la douzième ne 
contient que 4 éléments simi- 
laires pour raison de symétrie du 
Carré: 

35281746 64718257 
64718253 75281746 


SPECIAL PROGRAMMES 
HS65 DECEMBRE 1984 


82417536 
36428571 











HUIT DAMES À CASER 


L FDF 36 FiG)=F(G)+1 
36 IF GiF)=G(4i OR 190 IF F(G)<=8 THEN 30 
ABSiGIF)-G(A) )=F-A 118 G=ûü-1 
THEN 98 2Q 1F G<>Q THEN 90 
50 NEXT À 30 REM FIN 


bQ REM iMPRESSION 


LE FACTEUR 
SONNE TOUJOURS 








I 
DEUX FOIS |“ 
1 DEFINTH,K:DIMF (400) : INPUT'"N9,N="535N 
2 LPRINTTIMES$,N;"2" 
3 FC@)=1 :FORP=1T08:FORI=1TON 
4 P=PXI : IFPXCI+1)<1E7THENNEXT 
S F=Q0:FORJ=HTOK:FCJ)=FCJDXP+F 
6 F=INTCFCJ)/1E7) :FCJ)=FCJ)-1E7XF :NEXT 
__— 2 P=1:FCJ)=F :K=K-CF>@) :H=H-CFCH)=0) 
Voici un programme peu 8 NEXT:LPRINTTIMES :2$=STR$CFCK)) 
banal : en quelques lignes |3 H-48-CLENC2$)+7*K)M0D40 


18 LPRINTSTRING$CH," "J);2$ ; 
11 :IFKTHENFORI=1TOK:2$=STR$(FCK-I)+1E7) : 
LPRINTRIGHT$(2$, 7) ; :NEXT 
12 LPRINTTIMES$ 


de dynamite il caleule tous 
les chiffres de N Factorielle 
pour N très, très grand. 
Amusez-vous à l'adapter à 
votre machine, c’est de 


bonne guerre. 
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RUN 
08:14:45 1808 2 











E programme effectue le 

calcul exact de factorielle 
par tranches de 7 chiffres dans 
le tableau F. Pour y parvenir plus 
vite il prépare des produits de 
plusieurs entiers consécutifs à 
concurrence de 7 chiffres (ligne 
4), et il élimine des calculs les 
dernières tranches contenant 7 
zéros (ligne 7). À noter aussi sa 
présentation des résultats, et 
une petite acrobatie de BASIC 
autorisée par la syntaxe du 
NEXT sur le CANON X07 (Basic 
Microsoft) : vérifiez-la sur votre 
machine. FOR 1 = 1 TO N, ligne 
3, boucle tantôt sur le NEXT de 
la ligne 4 et tantôt sur celui de la 
ligne 8. En fin de calcul on peut 
les rencontrer successivement 
et on serait alors stoppé par une 
ERROR NF sans le « FOR P = 1 
TO 0 », fort incongru en appa- 
rence, ajouté en ligne 3. 
Avec un DIM(400) on peut dé- 
passer largement 1 000 ! avec 4 
ko mais les durées de calcul 
augmentent vite. 



















08:15:19 

93326215443944152681699238856266?200490 
2159682643816214685929638952]?5999932299 
1560894146397615651828625369?92082722375 
8251185210916864000000000000000000200008 
08:15:51 
08:16:13 
88:17:54 788657867364790 
503552363213932185062295]1359??6871732632 
9424253324435944996340334292030428401 198 
462390417721213891963883025?642?90242637 
105061326624952829931 11346285727076331 72 
3239698894392244562145166424025403329186 
| 41312274282948532??52424249?5?390324032] 
2524055?956866022603190417032406235 17008 
58?796178922222789623703897374?2000000000 
COCOCOLLOCCC CCC COCCLCCCCCLCCCCCLLCCCCE 
08:19:31 


2008 2 


71 











OCTOPUSSY 





Vous êtes l'agent 007 d'Interpol. La 
situation politique est dramatique, les 
deux blocs sont au bord de 
l'affrontement militaire ; votre mission 
es{ d'aller dérober des micro-films en 
Inde, à New Delhi, dans la résidence de 
l'ambassadeur de Bulgarie, que vous 





éliminerez ensuite (des souvenirs fugaces 
vous assaillent à cette pensée). Les micro- 
films sont cachés dans un coffre ou une 


mallette de la villa. Vous y pénétrez armé 
d’un pistolet plat et de ses munitions ; la 
résidence grouille de gardes du corps, de 
liciers et de chiens. Après avoir trouvé 
le film, téléphonez à l'agence locale 
d'Interpol pour localiser le diplomate. 
Utilisez toutes les commandes 
disponibles pour accomplir cette mission 
difficile et échapper aux pièges 
impardonnables (C0 donne la liste 


des commandes, 


et PL un plan détaillé des lieux). 
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18 PRINT'##48s OCTOPUSSY #++#4" 
28 60SUB 1188:PRINT"EN COURS DE JEU, POUR LIRE LA LISTE D 
ES COMMANDES, TAPEZ LA COMMANDE ‘CO'":FOR 11=1 TO 1880:NE 
it 11 

38 RANDOM:P=3:DIM 5#(21) ,E#(13) ,B(2):V=11 

48 FOR I=@ TO 13:READ ES(I):NENT I 

58 FOR I=1 TO 28:READ S$(I):NEXT I:Y=RND (1888) #RND (1888) : 
PRINT" TEL: "3 Y 

68 B(B)=6:B(1)=7:B(2)=18 

78 V=V-1:PRINT"VIE: "3 V: IF V(=8 THEN PRINT"VOUS MOUREZ!":E 
ND 

88 PRINT'VOUS ETES DANS *;5$(P) 

98 A=RND (13) 

188 PRINT'IL Y À ";E$(A) 

118 IF S$(21)2S$(P) THEN PRINT'L'AMBASSADEUR EST LA * 

128 INPUT “COMMANDE: ";F#:F$=LEFTS(F$,2) : X=RND (48) 

138 IF F$="HA" THEN 308 

148 IF F$="B0" THEN 348 

150 IF F$="AV" THEN 388 

168 IF F#="RE" THEN 468 

178 1F F$="TU" THEN 548 

188 IF F$="FU" THEN 638 

198 IF F$="OU" THEN 678 

208 1F F$="N0" THEN 788 

218 IF F$="DE" THEN 848 

228 IF F#="TE" THEN 878 

238 1F F$#="Dl" THEN 948 

248 IF F$="F0" THEN 978 

258 1F F$="PR" THEN 1928 

268 IF F#="AT" THEN 1888 

278 IF F$="C0" THEN 60SUB 1188:60T0 128 
288 1F F$="PL" THEN GOSUB 1248:60T0 128 
298 6070 128 

348 IF A()12 THEN 128 

318 IF X/3=INT(X/3) PRINT E$(A);" ENPOISONNE":V=V-4: 6070 
74 

328 IF X/5=INT(X/5) THEN PRINT E$(A);" TROP CHAUD':V=V#1: 
6070 78 

338 V=V+3:PRINT"DELICIEUX!":60T0 78 

348 IF AC)13 THEN 128 

358 IF X/3=INT(X/3) THEN PRINT E$(A);" AVARIEE":V=V-2:60T 
0 70 

368 1F X/5=INT(X/5) THEN PRINT'LE VERRE SE BRISE":V=V+1:6 
070 74 

378 6070 338 

388 1F A=2 OR A=5 THEN PRINT "VOUS ETES TOUCHE": V=V-4:60T 
0 70 

398 IF K=-1 THEN 128 

408 1F INT(P/4)=P/4 THEN 120 

418 IF INTIX/3)C2X/3 THEN 458 

428 PRINT “ISSUE BLOQUEE":K=-1 

438 FOR 1=8 TO 2:1F B(1)()18 THEN NEXT 1:6070 78 

448 B(I)=@:1=3:NEXT I:K=1 
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458 P=P+1:60T0 78 
468 IF A=2 OR A=5 THEN 380 

478 1F P=17 OR P=13 OR P=9 OR P=5 OR P=1 THEN 128 
488 1F L=-1 THEN 128 

498 1F X/3C)INT(X/3) THEN 538 

508 PRINT “ISSUE BLOQUEE*:L=-1 

518 FOR 1=8 TO 2:1F B(1)C)18 THEN NEXT [:6070 78 
528 B(I)=@:I=#3:NEXT Iilei 

538 P=P-1:6070 78 

548 H=017=0 


558 IF S$(21)25$(P) THEN 628 
568 IF A)3 THEN 128 


578 FORI28 TO 2:1F B(1)=7 LET H=H+1:B(1)=8 

598 IF B(I)=6 LET J=J+1:B(1)=Q 

598 MENT I:1F J<1 OR H(1 THEN 128 

688 V=V+1:1F A=5 THEN 78 

b18 A=B:607T0 189 

628 V=V-3:0=0+1:PRINT"HISSION";0:5$(21)="":A=8:60T0 188 
638 IF Lz=-1 AND K=-1 THEN 128 

648 V=V-5:P=P+RND(3):IF P)28 LET P=28 

658 IF P=3 AND 0)=2 THEN PRINT'BRAVO!":6070 658 

bb@ G0TO 78 

678 1F AC)B AND A()9 THEN 128 

688 X1=180((A-6)/2):H=RND(XL)#RND(X1) :J=4#(A-6):R=B:REM [ 
EST LE SIGNE DE MISE À LA PUISSANCE 

698 INPUT “CODE: ";Q:R=R+1 

708 IF QCH THEN PRINT"+":60T0 738 

718 1F QDH THEN PRINT"-":6070 738 

728 V=V+2#INT(J/R):60T0 758 

738 IF R)J THEN PRINT"TROP TARD!*:6070 

748 60T0 690 

758 A=RND(13):1IF A=13 AND 0<1 THEN 828 

768 1F AC6 OR A)18 THEN 758 

778 6070 88 

788 1F P)16 THEN 128 

790 IF P=15 OR P=10 OR P=6 OR P=3 THEN 818 

898 6070 128 

818 K=1:L=1:P=P+4;VzV-2: 6070 78 

828 0=0+1:PRINT"NICROFILM":V2V+4:607T0 78 

838 1F P(5 THEN 128 

848 1F P=19 OR P=15 OR P=18 OR P=8 THEN 868 

858 6070 128 

888 K=iil=11P=P-41VzV-2:60T0 78 

878 IF AÇ)11 THEN 128 

888 1F INTIX/3)=1/3 THEN PRINT*LIGNE COUPEE":60T0 78 
898 IF INT (X/7)=X/7 THEN PRINT'PIEGE":V=V-3:60T0 70 
988 INPUT “NUMERO: ":N:1F NC)Y THEN 128 

918 1F 5$(21)<)"" THEN 938 

928 5#(21)=5$ (RND(28) ) 

938 PRINT'DANS ":S#(21):VaV-1:60T0 128 

948 IF A)3 OR Az2 THEN 128 

958 IF INT(X/2)2X/2 LET VeV-3:PRINT E$(A);" VOUS AGRESSE" 
:60T0 78 





968 V=V+5:PRINT E$(A);" VOUS AIDE":6070 128 

978 IF AC)B THEN 128 

988 IF INT(X/2)=1/2 LET VeV-4:PRINT"EXPLOSION":6070 78 
998 IF INT(X/3)2X/3 THEN PRINT "RIEN':60T0 128 

1808 A=RND(18):1F AÇ6 OR A)18 OR A=9 THEN 1888 

1818 PRINT E$(A):607T0 128 

1928 IF AC6 OR A=9 OR A)18 THEN 128 

10358 B(2)=B(1):B(1)=B(@):B(@)=A:IF A=18 LET K=iiL=1 

1848 6070 78 

1858 DATA "MORT", "UN INVITE", “UN GARDE", "UN VALET®, "UN PO 
LICIER®,*UN CHIEN", "UN REVOLVER®, "UNE BALLE" ,"UNE MALETTE 
*,"UN COFFRE", "UNE CLEF", "UN TELEPHONE", "UN REPAS", "DE QU 
01 BOIRE" 

1868 DATA "LA CAVE", "LA BIBLIOTHEQUE" ,LE HALL°,"LE SEJOU 
R°,"LA SALLE À MANGER" ,LA SALLE D'APERITIF",*LE SALON" ," 
LE BUREAU", "LA CUISINE" ,°LE FUNOIR",*LES MC°,"LA SALLE DE 
S ARMES", "LA CHAMBRE 1°, "LA DOUCHE", "LA SALLE DE JEUX","L 
À CHAMBRE 2°,"LA CHAMBRE 3° 

1078 DATA “LA SALLE DE BAIN","LE SAUNA" ,"LA CHAMBRE 4" 
1088 V=V-1:1F A()2 THEN 78 

1090 PRINT "VOUS ETES BLESSE !":V=V-1:60T0 78 

1188 PRINT "LISTE DES COMMANDES" 
1118 PRINT'MA : MANGER (REPAS) 
1128 PRINT"AV : AVANCER 

1138 PRINT®TU : TUER (PERSONNAGE) 


BO : BOIRE" 
RE : RECULER" 
FU : FUIR" 


_ JEUNES ,, 
— LOUPS À 
ET DENTS 
LONGUES 





Les damnés de la finance 
ne sont pas des tendres. 
Etes-vous de ceux qu'un 

appétit insatiable guide 
infailliblement du berceau 
de l'entreprise naissante 
vers la multinationale 














ancrée dans le laisse-béton ? 


1148 PRINT'TE : TELEPHONER" 

1158 PRINT'AT : ATTENDRE" 

1168 PRINT'OU : OUVRIR (MALETTE, COFFRE) * 

1178 PRINT"HO : HONTER (EN ASCENCEUR) * 

1188 PRINT"DE : DESCENDRE (EN ASCENCEUR) * 

1198 PRINT"DI : DISCUTER (AVEC UN CIVIL)" 

1288 PRINT"FO : FOUILLER (UN CADAVRE)* 

1218 PRINT"PR : PRENDRE (UN OBJET)" 

1228 PRINT'PL : AFFICHAGE DU PLAN" 

1238 RETURN 

1248 PRINT'P L A N° 

1258 PRINT"! ! 

1268 PRINT" 'chasbre!salle ! sauna 'chasbre!" 
1278 PRINT"! 3 de bain! ON EE 

1288 PRINT" == mine cumin munloue mots 
1298 PRINT" 'chasbre douche! salle 'chasbre! 

1388 PRINT"! 1 ! ide jeux! 2 !* 

1318 PRINT" !--- lun mule miommlane moutons tt 
1328 PRINT''cuisine!fuaoir ‘NC 'salle des arses'* 
1330 PRINT" !--- tm te cinnnnne mulsusett 
1348 PRINT" !salle a'aperitif'salon bureau!" 

1358 PRINT"! sanger! - ! Fa 

1368 PRINT" !--- lune muulnnn muntnnns 1e 
1378 PRINT"! cave 'bibliotheque'hall'sejour!* 
1388 PRINT"! 

1398 RETURN 








se 


maginons quatre équipes de spécialistes du 
marketing franchement concurrents et isolés : 
au début, l'ordinateur présente la situation initiale 
et identique des quatre entreprises, tandis que 
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JEUNES LOUPS ET DENTS LONGUES 


les experts peaufinent leur stratégie commer- 
ciale. Lorsque chaque équipe a rendu compte de 
ses décisions pour l'exercice en cours, celui-ci 
est calculé. De nouveaux objectifs doivent être 
définis. Bien sûr, il ne faut pas redouter la 
concurrence étrangère : tant que la production 
totale éponge le marché, les importateurs ne 
s'implantent pas sur le territoire. 








18 REM----JEU D'ENTREPRISE ---- 
S@ REM----REGLE DU JEU---- 

52 CLS:REM EFFACE L'ECRAN 

S5 PRINT"4 ENTREPRISES S'AFFRONTENT SUR UN SEGME 
NT DE MARCHE." 

88 PRINT*CES 4 ENTREPRISES S'APPELLENT : A,B,C € 
rs." 

7@ PRINT'AU DEBUT DU JEU, ELLES SONT DANS DES SI 
TUATIONS RIGOUREUSEMENT IDENTIQUES. * 

98 PRINT'LES PARAMETRES INITIALEMENT FOURNIS PAR 
L'ORDINATEUR SONT:" 

188 PRINT'CAPACITE DE PRODUCTION," 

118 PRINT"NOMBRE D'UNITES PRODUITES, * 

128 PRINT*PRIX DE VENTE UNITAIRE ET BENEFICE UNI 
TAIRE," 

138 PRINT'PART DE MARCHE," 

148 PRINT"TAUX DE NOTORIETE, 

158 PRINT'NOMBRE D'UNITE EN STOCK," 

152 PRINT'ETAT DE LA CAISSE." 

168 INPUT"APPUVEZ SUR CENTER) POUR PASSER À LA P 
AGE SUIVANTE"; 0$ 

188 EtS-— 7 (3 

185 PRINT"CHAQUE EQUIPE DOIT PRENDRE 18 DECISION 
s." 

198 PRINT"A CHAQUE DECISION, IL FAUT DEFINIR :" 
208 PRINT'QUANTITES A PRODUIRE * 

218 PRINT"PRIX UNITAIRE, 

215 PRINT" INVESTISSEMENT PUBLICITAIRE. 

238 PRINT:PRINT'LES DECISIONS SONT MENSUELLES. " 
248 PRINT'LA SITUATION INITIALE CORRESPOND À CEL 

LE DU MOIS DE DECEMBRE; " 

258 PRINT'AINSI, LES PREMIERES DECISIONS PRENDRO 

NT EFFET COURANT JANVIER, ET LES RESULTATS QUE L 
"ORDINATEUR FOURNIRA CORRESPONDRONT À LA * 

268 PRINT'SITUATION EN FIN DE MOIS." 

262 INPUT'APPUYER SUR CENTER) POUR PASSER À LA P 

AGE SUIVANTE":0$ 

18 C6 — ? 57 

298 PRINT'VENTES EN NOMBRE D'UNITES,* 

308 PRINT'PART DE MARCHE,‘ 

318 PRINT" TAUX DE NOTORIETE," 

328 PRINT'STOCK EN NOMBRE D'ARTICLE," 

325 PRINT'ETAT DES FINANCES." 

368 REN----DEBUT DU JEU---------- 
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365 REM----SITUATION INITIALE---- 
470 C=40000:P1=25000:P1=25:P2=25:P3=25:P4=29:T1= 
25272225: 13225: 14=25:F1=10:F2=10:F 3210: F4 10: ST= 
1008:B1=4:B2=4:B3=4:B4=4 

728 PRINT'SITUATION INITIALE DE L'ENTREPRISE :* 
738 PRINT"  CAPACITE DE PRODUCTION :";C; *UNITE 
ç" 

740 PRINT" NOMBRES D'UNITES PRODUITES EN DECE 
MBRE :"3PI 

750 PRINT" PRIX DE VENTE À L'UNITE :";F15 "FRA 
NCS" 

168 PRINT"  BENEFICES UNITAIRES :";B1;*FRANCS" 
770 PRINT" PART DU MARCHE :";P13"2" 

775 PRINT" TAUX DE NOTORIETE :";115"4" 

780 PRINT" NOMBRE D'UNITES EN STOCK :",51 

182 PRINT:PRINT"BUDGET INITIAL : 28888 FRANCS.* 
798 INPUT*APPUYEZ SUR CENTER) POUR LIRE LA SUITE 
":0$ 

818 REM----DEROULEMENT DU JEU---- 

838 CLS 

848 E1=1008:E2=1000:E3=1000:E4=1008 

842 01=20000:02=20000: 03=20000: 04=20008 

843 A1 

845 FOR 1=1 T0 4 

847 PRINT'ENTREPRISE";2 

858 PRINT'QUEL EST VOTRE PRIX DE VENTE ‘; 

852 IF Z=1 INPUT F1 

853 1F 2=2 INPUT F2 

854 IF Z=3 INPUT F3 

855 1F Z=4 INPUT F4 

868 PRINT'QUELLE EST VOTRE PRODUCTION "; 

882 1F 2=1 INPUT RI 

864 IF 2=2 INPUT R2 

866 IF Z=3 INPUT RJ 

86B IF 2=4 INPUT R4 

870 PRINT'QUEL EST VOTRE INVESTISSEMENT PUBLICIT 
AIRE ‘; 

872 IF 2=1 INPUT Ni 

874 IF Z=2 INPUT N2 

875 1F 2=3 INPUT NS 

877 IF 2=4 INPUT N4 

879 CLS 

880 NEXT L 

988 IF AC3 LET MA=188008:6070 961 
904 IF A=3 LET MA=85000:6070 961 
986 IF A=4 LET MA=98808:60T0 961 
918 IF AC6 LET MA=105008:60T0 961 
928 IF A=6 LET MA=122808:6070 961 
938 IF A=7 LET MA=158088:60T0 961 
948 IF A=8 LET MA=208888:6070 961 
958 1F A=9 LET MA=118880:60T0 961 
955 IF A=10 LET MA=95088:60T0 961 
968 IF A)18 LET HA=188008 











961 IF N1=8 LET N1=1 

962 IF N2=8 LET N2=1 

963 IF N3=8 LET N3=1 

964 IF N4=8 LET N4=1 

978 SI=N1/ININ2+N3+N4) 

988 52=N2/ (NI+N2+N3+N4) 

998 S3=NS/INLN2+N3+N4) 

1080 S4=N4/ (NL4N2+N3+N4) 

1188 DI=(((F1+F2+F3+F4)-F1)/(F14+F24F3+F4)/3) 
1118 D2=(((F1+F24F3+F4)-F2)/(F1+F2+F34F4)/3) 
1128 D3=(((F1+F2+F3+F4)-F3)/(F1+F24F3+F4)/3) 
1130 D4=(((F1+F2+F34F4)-F4)/(F1+F2+F34F4) /3) 
1148 VI=((MA#S1) + (MA#D1))/2 

1158 V2=((MA#S2) + (MA#D2) ) /2 

1168 V3=C(NA#S3) + (MA#DS) } /2 

1178 V4={(MA#S4) + (MA#D4) ) /2 

1188 HI=EL+RI 

1198 H2=E2+R2 

2808 HJ=ES4RS 

2818 H4=E4+R4 

2828 IF VI)H1 THEN 2050 

2025 V5=V1:6070 2840 

2838 V5=H1:V2=V2+(V1-H1) 

2048 IF V22H2 THEN 2868 

2058 V6=V2:G0T0 2878 

2068 V6=H2:V3=V3+ (V2-H2) 

2878 IF V3)H3 THEN 2098 

2888 V7=V3:60T0 2188 

2898 V7=H3:V4=V4+ (V3-H3) 

2180 IF V42H4 THEN 2288 

2158 V8=V4:60T0 2228 

2288 V8=H4:V5=(V4-H4): IF VS)HI LET V5=Hl 
2228 IF (V5+V6+V7+V8) > (H1+H2+H3+H4) THEN V9=(V5+ 
Vb+V7+V8)-(H1+H2+H3+H4) 

2308 REM----CALCUL DU BENEFICE UNITAIRE---- 
2318 B1=F1-6 

2328 B2=F2-6 

2330 BJaF3-6 

740 B4=F4-6 

3810 NW=1:6070 3038 

3030 REM----CALCUL DE LA PART DE MARCHE ---- 
3048 P1=(V5/MA)#108 

3050 P2=(V6/MA)#108 

3060 P3=(V7/HA)#108 

3078 P4=(V8/MA)+100 

3188 REM----CALCUL DES STOCKS---- 

3118 E1=H1-V5 

3128 E2=H2-V6 

3138 ES=H3-V7 

3148 E4=H4-V8 

3168 REN----CALCUL DES TAUX DE NOTORIETE---- 
3178 T1=51+180 

3188 12=52+188 





3198 13=53+100 
1208 T4=54+100 
3358 REM----CALCUL DES RESULTATS---- 
3368 01=01+(B1#V5)-N1 
3378 02=02+ (B24V6) -N2 
3288 C3=03+ (83417) -N3 
3398 04=04+ (B44V8) -N4 
3428 61=V5:62=V6:63=V7:64=V8 
3468 REM----AFFICHAGE DES RESULTATS---- 
3588 CLS 
3528 J=1 
3615 PRINT'BULLETIN N.";A 
3628 PRINT"EDITION DES RESULTATS DE L'ENTREPRISE 
*.J 
; 
3641 IF J=1 LET 6J=61 
3643 IF J=2 LET 6J=62 
3645 IF J=3 LET 6J=63 
3647 IF J=4 LET 6J=64 
3458 PRINT'VOULUME DES VENTES :":6J3"UNITES" 
3652 IF J=1 LET PJ=P1 
3654 IF J=2 LET PJ=P2 
3656 IF J=3 LET PJ=P3 
3658 IF J=4 LET PJ=P4 
3668 PRINT"PART DE MARCHE :";PJ; "1" 
3661 IF J=1 LET 0J=01 
3663 IF J=2 LET 0J=02 
3665 IF J=3 LET 0J=03 
3667 IF J=4 LET 0J=04 
3678 PRINT'RESULTATS : "093 "FRANCS" 
3671 IF J=1 LET EJ=E1 
3473 IF J=2 LET EJ=E2 
3475 IF J=3 LET EJ=E3 
3677 IF J=4 LET EJ=E4 
3488 PRINT'VOLUME DU STOCK :";EJ;"UNITES" 
3683 IF J=1 LET TJ=T1 
3686 1F J=2 LET TJ=T2 
3698 IF J=3 LET TJ=T3 
3495 IF J=4 LET TJ=T4 
3788 PRINT'TAUX DE NOTORIETE :": TJ; "4" 
3718 PRINT"PENETRATION ETRANGERE SUR LE MARCHE : 
*:108-(P14P24P3+P4); "1" 
3720 PRINT" 
3750 INPUT"APPUYEZ SUR CENTER) POUR LIRE LA SUIT 
E":0$ 
3760 CLS 
3808 1F J=4 THEN 3948 
3928 J=J+1:6070 3615 
3940 A=A+! 
3945 CLS 
4008 1F A=13 THEN 4180 
4818 GOTO 845 
4188 PRINT'L'ANNEE EST ECOULE.LE JEU EST FINI." 
588 END J.-M. Chambinaud 
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_A TRAVERS 
_ PASSOIRE 


en en évitant les murs, 
les se : il n'existe de chemin 
entièrement « transparent », il faudra 
souvent forcer le e sur des cases noires. et il vous en coûtera ! 
Pour ce faire, la machine attend vos directives 
sous la forme suivante : 8 = NORD, 2 = SUD, 4 = OUEST, 6 = EST 


















20 LI=INT (RNDX930) : Lu=l+10 

38 Y=INT CRND*#38) 

35 DRALC (CU, Y >: DRALICCLI- 1 » Y2— CL 1 » V2 

32 LI-INTCRND#90):1=L+ 18 

38 Y=INTCRND*308) 

48 DRAUC(CU+2: Y2-CW-25 Y) 

45 NEXT F 

5 OS=INKEYS:1F O$="" THEN DRAUC(PE;,P 
:FOR T=-0 TO S:NEXT T:DRAU(CPE : PH): GOTO 


188 IF O$="8" THEN GOSUB 3000 
290 IF O$="4" THEN GOSUB 2008 
25@ IF O0$="2" THEN GOSUB 10008 
300 1F O$="6" THEN GOSUB 4200 
908 GOTO 50 
1288 PA=PH: PB=PE 
1010 PH=PH+1:1IF PH>30 THEN PH=38 
1015 GOSUB 7000 
1920 DRALICCPB»: PA): DRAUCPE » PH) 
1858 RETURN 
2008 PA=PH: PB=PE 
2018 PE=PE-1:1F PEC18 THEN PRINT "GAGNE 
: SC: END 
2815 GOSUB 7888 
2828 DRAC (PB; PA) : DRAUCPE ; PH) : RETURN 
3000 PA=PH: PB=PE 
3010 PH=PH-1:1F PHÇ1 THEN PH=1 
3015 GOSUB 7068 
LOCATE 141: PRINT “in' pro Re 
FOR F=18 TO 188 4010 PE=PE+1: IF PE>150 THEN PE=150 
DRAUCF :82-<F> 30) 4015 GOSUB 7008 
NEXT F 4828 DRALC(PB; PA): DRAUCPE »: PH): RETURN 
3 NB=1INT CRND#100) : NB=NB+ 10: 5C=300-N8 2000 PT=POINT(PE PH): IF PT=1 THEN BEEP 
17 FOR F=NB TO @ STEP -1 1: BEEP 1: SC=SC-C INT CRND#10) ) 
18 LOCATE 14»@:PRINT "  ":LOCATE 14; 2805 LOCATE 14:1:PRINT SC: 
G: PRINT F 2018 RETURN D. Batique E 


CLS :NR=1008: PE=101:PH=15:DRAUCPE: P 











LE TRADUCTEUR 


Le traducteur de mot est simple. Le 
traducteur de mot est pratique. Le 
traducteur de mot est disponible. 

Il stocke son vocabulaire en ligne data. 














ouvez ajouter les mots que vous voulez 

sous la forme « mots français », 
«mots traduits ». La ligne 460 indique que le dernier mot à 
ut être paré de fonctions plus spécialisées 
et de menus de sélection. 








de base 





été lu. Ce programme 


18 CLS:RESTORE 

28 PRINT* TRADUCTION ANGLAIS --) FRANCAIS : 1" 
3@ PRINT" TRADUCTION FRANCAIS --) ANGLAIS : 2° 
48 INPUTPRESSEZ 1 OÙ 2 PUIS CENTER)"; CHOIX 

s@ ON CHOIX 6010 78,120 

&@ GOTO 18 

T8 INPUT"NOT ANGLAIS *:A18 

BB READ FRS:1F FRS="FIN" THEN 22 

98 READ ANS 

108 IF AN$=AIS THEN PRINT ANS: "=": FRS: 6070 170 
118 60TO 80 | Fay, 
128 INPUT “NOT FRANCAIS ":F14 | 
138 READ FRS: IF FRS="FIN® THEN 228 
148 READ ANS À 
158 1F FRS=F1# THEN PRINT FRS: "=": ANS:G0TO 178 = 
168 6OTO 138 

178 INPUT “VOULEZ-VOUS TRADUIRE UNE AUTRE EXPRESSION * 
:a$ 

188 Q$=LEFTS# (08,1) 








198 IF Q$="0" THEN 18 338 DATA "S'IL VOUS PLAIT", "PLEASE" 

288 IF Q$="N" THEN END 348 DATA "QUELLE HEURE EST-IL*,"WHAT TIME IS-IT* 
218 60T0 178 358 DATA "QUI ETES VOUS", "WHO ARE YOU" 

228 PRINT"JE N'AI PAS CE MOT EN MEMOIRE":6010 178 368 DATA “MON NOM EST" ,"MY NAME IS" 

PIE REM----- nn 378 DATA "VOITURE", "CAR", "ROUTE", "ROAD" 

248 REN PLACER VOS NOUVELLES EXPRESSIONS 388 DATA "RUE" ,"STREET" , "LIVRE", "BOOK" 

258 REM A PARTIR D'ICI EN LIGNES DATA 398 DATA “POUVEZ-VOUS M'AIDER",*CAN YOU HELP ME° 
268 REM DANS L'ORDRE : FRANCAIS PUIS ANGLAIS 488 DATA “JE SUIS FATIGUE","1 AX TIRED" 

278 REM------------ 418 DATA “J'AI PEUR" ,*1 AM AFRAID* 

288 DATA "ALLER" ,*TO 60" ,"MANGER" "TO EAT" 428 DATA "DORNIR","TO SLEEP", "RIRE", "TO LAUGHT"* 
298 DATA “RESTAURANT , "RESTAURANT * 438 DATA "DIFFICILE" ,"DIFFICULT" 

388 DATA GARE" ,"STATION® , "DOCTEUR" ,"DOCTOR* 448 DATA “JE SUIS FRANCAIS" ,*I AM FRENCH" 

J18 DATA “QUE FAITES-VOUS* "WHAT ARE YOU DOING* 458 DATA "ARBENT* , "MONEY", "PORTER", "TO CARRY" 
328 DATA "VILLE", "TOWN" ,"NOURRITURE" , "FOOD" 488 DATA FIN" T. Levy-Abegnoli 
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MORSE SUR LE NIL 


À défaut de chanter ou danser en morse, 
ce pro, me vous montrera comment lire 


Tolstoï en morse dans le texte. 
noble. 


La défense du morse (on est mordu ou on ne l’est pas) est un objectif 


rendre le morse, c’est avant tout une 
à New York, les ds-mères de la cinquième génération 


bonne idée : déjà 
amorcent au coin du feu des canevas 


électroniques dont les motifs audacieux 
fondés sur l'alphabet morse font baver les chercheurs japonais. 
Ce programme vous permet d'aller plus loin : il contient la 


connaissance essentielle pour ouvrir les 
portes de cette nouvelle science. 



















E y litre 


2 
PA 

æ 
Æ 











TS 


ï 
AE 
Ai 


Zee, 
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20 REM INITIATION AU MORSE 


48 DATA "Az. 
58 DATA "F=.,-,*, 
68 DATA "K=-, 
78 DATA “P=. 
8 DATA "U=., 
98 DATA "Y=-, 
188 DATA "3=,,,--", 
118 DATA “7=--,,,"," 
120 REM DEBUT 
138 CLS:: PRINT “NORSE-COURS ET ESSAIS" 
148 PRINT “{. À QUEL CODE CORRESPOND UN 
CARACTERE? ":PRINT "2, À QUEL CARACTERE CORRESPOND UN 
CODE?" 
150 PRINT "3, À QUEL CARACTERE CORRESPOND UN SON ?" 
168 INPUT “VOTRE CHOIX*;CH 
178 ON CH 6070 1008,2008,3080 
188 REX SUITE 
1890 GOSUB 5088 
1018 L=INT RND#36) +1 
1826 FOR U=1 TO X 
1030 READ 1$ 
1840 NEXT LU 
1458 RESTORE 
1860 CAS=LEFTS(X#,1) 
1979 PRINT" "CAS: INPUT" ="3:RA# 
1880 IF MIDS(X$,3)=RA$ THEN PRINT * C'EST EXACT": 
Ju=JU+1:6070 1108 
1892 PRINT "HAIS NON, C'ETAIT:":MID#(X$,3) 
1180 NO=NO+1:1F NO(28 GOTO 1818 
1118 GOSUB 4080 
1120 REN CAS 2 
2080 GOSUB 588b 
2810 X=INT (RND#56) #1 
2628 FOR U=1 TO À 
2030 READ X$ 
2040 MEXT U 
2050 RESTORE 
2860 CO$=NIDS(X$,3) 
2870 PRINT " ":CO$: INPUT" : ="; RES 
2080 IF LEFT#(X$,1)=RB$ THEN PRINT “ MAODH : C'EST 
JUSTE! ":JU=JU+1:60T0 2108 
2098 PRINT " JUSTE DIEU! VOUS AVEZ TOUT FAUX;IL 
FALLAIT TOUT MISER SUR:;LEFT$(X$,1) 
2180 NO=NO+1:1F NO(28 THEN GOTO 2818 
2118 GOSUB 4088 
2120 REN CAS 3 
3000 GOSUE 5988 
3818 PRINT "QUEL EST VOTRE NIVEAU,MON BON BRAVE?"; 
*{DE)BUTANT (IN)ITIE" 
3028 INPUT “(EX)PERT";NI$ 








3030 IF Ni$="DE" THEN TE=280 
3840 1F NI$="IN" THEN TE=108 
3050 1F NI$="EX" THEN TE=58 
3068 PRINT “#* 

3070 1=INT (RND#56)+1 

3888 FOR U=1 TO X 

3498 READ À$ 

3108 NEXT L 

3118 RESTORE 

3120 CO$=MID$(K$,3) 

3130 C$i1)=LEFT$(C0$,1) 

3140 C$(2)=MID$(C0$,2,1) 

3150 C#i3)=MID$(C0$,5,1) 

3168 C$i4)=MID$(CD$,4,1) 

3178 Cf(5)=MID$(C0$,5,1) 

3188 FOR 1=1 TO S:TF=TE 

3190 IF C$(1)="-" THEN TF=3#TF 
3208 1F C#(1)="" THEN GOTO 3250 
3208 REM DEBUT SON 

3218 BEEP ON 

3212 REX DUREE DU SON 

3228 FÜR T=1 T0 TF :NEXT T 

3222 REM FIN SON 

3230 BEEF OFF 

3248 MENT Ï 

3258 INPUT "VOTRE REPONSE ";50$ 
3260 1F LEFT#(1$,1)=S0$ THEN PRINT'VOUS NE VOUS ETES 


PAS FOURVOYE":JU=JU+1:6070 3280 

327€ PRINT * NON, NON,NON. C'ÉTAIT: *:LEFT# (NS, 1) 
3280 FOR T=1 T0 3008 : NEXT T 

3290 NO=NO+1:1F NO(28 G0T0 3878 

3300 GOSUB 6088 

3314 REN GUIDE 

5000 PRINT “BIBLE DE REFERENCE" 

Sea PRINT 

5820 FOR Z=1 T0 36 STEP 3:READ V£,WS,VS#:PRINT VS,NS, 
Y$: NEXT 

5190 INPUT "ETES-VOUS PRET?";RES 

S160 IF RES="NON" THEN GOTO 158 

5170 NO=0:JU=B:PRINT "  TROUVEZ LA REPONSE EXACTE:* 
5180 RETURN 

BOB PRINT “SUR 28 ESSAIS “;JU; "SONT JUSTES" 

bia G0TO 108 

6058 END P. Giraud M 
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INTRODUCTION AUX UTILITAIRES 


I. programmeur conserve dans ses cartons quelques courts morceaux de 
programme qui possèdent la propriété d'être utiles 
tels quels dans quantité de programmes plus longs. Ce sont des utilitaires 
qui pour la plupart suppléent à des fonctions manquantes 
de la bibliothèque de base de l'ordinateur. 
ll en va ainsi des quelques programmes qui suivent. 
Notons les qualités principales d’un utilitaire : 
concision, portabilité de n'importe quel programme 
vers n'importe quel autre sans modification, possibilité d'être appelé 
par le programme principal à tout instant. 
Le cas idéal est celui où l'utilitaire ne modifie la valeur d'aucune variable du 
programme principal. || est peu souvent réalisable 
sans perte de place, c'est pourquoi on définit plutôt une liste de variables 
réservées d'office à l'utilitaire. 
Ainsi celui-ci peut être inséré à peu près n'importe où. 





«A MOI 
ESCOMPTE 
DEUX MOTS» 
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DATE REMISE: 14-3-84 





L'escompte est la plus 
ancienne technique de 
financement (et la plus 

courante) car, depuis 
longtemps. les impératifs 
de la concurrence et la 

tradition commerciale 


poussent les fournisseurs à 
la pratiquer. 

Or, cette technique est 
souvent très mal utilisée. 
Quand donc faut-il y faire 
appel ? Lorsque ce 
programme vous le 
conseillera, tout 
simplement, à partir du 
calcul des agios. Gérez à 
bon escient vos capitaux 
potentiels ! 

Programme conçu 

pour Basic Sharp. 

Sinon ajouter les lignes : 

5 INPUT «1=D 2=S 3=A 
4=TOTAL 5=DATE » : Z 

6 ON Z GOTO 10, 70, 

3000, 200, 1000 


Commencer par l'option 1 
(début). 


P. Inigo Yanez 





MONTANT DATE AGIOS 
8,467.45 17.3.84 35.16 
1,849 65 20.3.84 14.12 
8,814.00 24.3.84 47.58 
7,963.14 20.484 125.66 

27,094,24 TOTAL 222.52 

FRAIS : 6420 
TVA: 11.94 
TOTAL : 298.66 


81 


;: "D"'TEXT :CS]12E 


1:0=2:L=8:P=0 


: INPUT "DATE RE 


MISE: ‘; Y: GOSUB 
DATE" 


:D1=Y;: LPRINT 


USING "###"; D 
QTE REMISE: ‘;]J 
Me LÉ AEL S 
908 


: GOSUB 581] 
:LPRINT "‘ MON 


TANT ! DATE 
: AGI0S 


: GOSUB 508 


S"'INPUT "MONT 
ANT: ‘5: K: IF K=9 
THEN "TOTAL" 


:1F K<OBEEP 1,1 


50: GOTO "S" 


:BEEP 1: INPUT " 


DATE D ECHEANC 
Es: ",Y:GOSUB "D 
ATE" 


:BEEP 1:D2=Y.R= 


B:D=D2-D1+U:1F 
D<QLET D=Q:R=1] 


:P=P+K:KX=CKXTXD 


)/36080: COSUB 
‘ARRONDI".IF X 
CSLET X=S:R=1] 


:9=0+X;:L=L+] 
:LPRINT USING 


HHH, HHH, HHH. 4H 
RAR à 
LPRINT USING 
BH. Ts 


USING ‘ 
D à : DR 
sr IF  R=1 
LPRINT TAB 35; 
ge 


:GOTO “S" 


TOTAL'"GOSUB 5 
A8: LPRINT 
USING "###, H## 
fi Ni vf DS Der 
SULPSTAB 175 "T 
OTAL" ; 


: LPRINT TAB 25; 


USING "HHHHHH, 
MR NS Os 
GOSUB 581 


: G=FXL: K=6X. 186 


: GOSUB “ARROND 
1": 9=0+6+X 


:LPRINT TAB 28; 


"FRAIS: ";G: 
LPRINT TAB 28; 


"T.U. A: "5%: 
LPRINT TAB 28; 
"TOTAL : "; 0: END 


: "ARRONDI"H=XX1 


BB: H=H-INT CH) 
:IF H>=.SLET X 
=X+.081] 

X=INT CX*x108)/ 
198: RETURN 


: LPRINT 


--": RETURN 


1088: ‘DATE"J=INT 


CY/1E4):M= 
INT CY/1E2)- 
JX1E2: Q=Y-JX%X 
1E4-MK1E2+19 
aa 

1F M>120R MK 
10R J<1OR J) 
31BEEP 1,150 
: INPUT "DATE 
: ts Y:G607T0" "10 
2a 
: 1F M<=2LET NW 
=Â-]:Y=0: 
GOTO 1940 
:Y=-INT C.4axn 
+2.3):W=-A 
: Y=Y+365*A+J+ 
31XC(M-1)+INT 
(W7/4)-INT <C3 
/4XCINT CW/] 
28+1))) 


1050:2=Y-CINT CY/ 


22X27):1F 2=] 
LET Y=Y+1 


1960: 1F Z2=QLET Y= 


V4#+2 


1220. RETURN 
3008: AQ'"INPUT ‘ta 


ux d 'escompt 
e T 


3010: INPUT ‘frais 
ea 


3020: INPUT “mini 


jour: ‘;0Q 


3839: INPUT "mini 


o91:0s:°';5s 


3048: INPUT ‘jour 


escompte: ;U 


3050: END 
STATUS 1 


1348 


STATUS @ 


503 
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CODONS 
S'IL 
Vous 
PLAIT 


Connaissez-vous le CAO 


(Codage assisté par 
ordinateur) ? Le PC 1500 
saura maintenant crypter 
n'importe quel texte selon 
un principe simple mais 
difficile à découvrir. 

Un RUN initialise, efface 

et dimensionne avant 


d’envoyer à un menu 
explicite. Entrez votre texte 

igne par ligne, jusqu'à 
254 lignes de 26 


caractères) puis codez-le. 
Et même recodez-le. Et 


continuez si le cœur vous 
en dit. Plus c’est codé, plus 
c’est chouette. Ou même, 
plus subtil, décodez donc 
un texte en clair pour 
voir. L'option « S » vous 
rappellera toujours où vous 
en êtes. À la lecture, + et/ 
promènent sur les lignes, D 
renvoie au début, F à la fin 
et P imprime. 

Décryptez aussi le 
programme, écrit en clair, 
contenant, cachée, la clef. 


C’est tout simple. 
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19 DIM T$(255)*26:BEEP ON 
29 T$(D)="QM: TSI )= "RM TES NY 
39 PRINT "MEMOIRE INITIALISEE" 
194 "M"REM MENU 
195 WAIT G:FOR I=1T0 7:NEXT I 
119 PRINT "Elcr. C(od. D(ec. L(ect. 5" 
124 A$=INKEYS :1IF A$=""THEN 129 
134 R$="ECDLS" 
149 FOR 1=110 5 
158 IF A$=MID$ (R$,1,1)0N IGOTO 1990,3490 ,4909 , 2499, 5909 
169 NEXT I:GOT0 129 
SA@ IF J=1LET T$(I)=L$+RIGHT$ (T$(I),L-1):RETURN 
519 IF J=LLET T$(I)=LEFT$ (T$(I),L-1)4#L$:RETURN 
528 T$(L)=LEFTS (T$(I),2-1)+4L$+RIGHT$ (T$(1),L-J) 
539 RETURN 
1999 "E"REM ECRITURE 
1918 WAIT 
1929 1F T$(@)="A"THEN 1949 
1921 PRINT "Remplacer le texte actuel?" 
1922 A$=INKEYS :1F A$=""THEN 1935 
1923 IF A$<C>"O"THEN 199 
1934 1=1 
1949 INPUT T$(1) 
1459 1F T$(I)="##HMLET I=l-1:T$(H)=STR$ 1:GOT0 198 
1969 IF I<>254LET I=I1+1:G0T0 1949 
1965 .T$(255)="###":T$(9)="254" 
1966 BEEP 3,99,99:PRINT "PLEIN...":G0T0 199 
1979 1=1+1:G010 1949 
2408 "L'REM LECTURE 
2445 1F T$(9)="#"GOTO 199 
I=l:WAIT 
PRINT T$(1) 
A$=INKEYS :1IF A$=""THEN 2939 
IF A$="4#"AND ICVAL T$(B)LET I=1+1:G070 2928 
IF A$="/"AND LDILET I=1-1:G0T0 2929 
IF A$="F"LET I=VAL T$(8):GOT0 2929 
IF A$="D"LET I=1:G0T0 2929 
IF A$="M"THEN 199 
IF A$="P"FOR J=1T0 VAL T$(B):LPRINT T$(2);" "52:NEXT J:LPRINT :GO0T0 199 
GOTO 2934 
"C"REM CODAGE 
IF T$(4)="2"GOTO 199 
WAIT S:PRINT "JE CODE. NIVEAU: M3VAL T$3" D"; VAL T$+1 
3914 FOR I=110 VAL T$(#) 
3915 L=LEN T$(1) 
3929 FOR J=170 L 
3438 X=ASC MID$ (T$(1),9,1)+J 
3935 IF X>255LET X=X-224 
3936 L$=CHR$ X 
3949 GOSUB 599 
3959 NEXT J 
3969 NEXT 1! 
3965 T$=STR$ (VAL T$+1) 
3974 BEEP 2,54,199 
3484 GOTO 199 
4988 "D"REM DECODAGE 
4991 1F 1$(#)="#"GOTO 199 
4995 WAIT G:PRINT "JE DECODE. NIVEAU:"3 VAL T$;" =>"; VAL T$-1 
4919 FOR I=110 VAL T$(9) 
4929 L=LEN T$(1) 
4939 FOR J=170 L 
agag X=ASC MID$ (T$(1),3,1)-J 
4945 IF X<32LET X=X+224 
4946 L$=CHR$ X 
4950 GOSUB 594 
496g NEXT J 
4979 NEXT I 
4975 T$=STR$ (VAL T$-1) 
4989 BEEP 2,59,109 
4999 GOTO 199 
SggA "S'REM ETAT DU TEXTE 
5995 MAIT :1F T$(W#)="G"PRINT "Pas de texte":GO0TO 199 
5919 N=VAL 1$(#) 
529 S$="s":1F T$(D)="A"LET S$="" 
5939 PRINT VAL T$(g);" ligne";5$ 
5449 PRINT "Niveau de codage:";VAL T$ 
5954 GOTO 199 | 


J.-L. Goudet 














AIME VOS TEXTES 


Comment pro meriez-Vous 











180 
un traitement de texte en Basic ? En vous 118 REM TRAÏTEMENT DE TEXTE 
TRE" Hs +. {20 
inspirant du pro me suivant, 138 DIM T$(6,23) 
bien sûr ! 140 CALL CHAR(127,"3C") 


150 FOR I=1 TO 14 :: CALL COLOR(i,9,11):: 
NEXT I 

160 CALL VCHAR(1,1,32,768):: DISPLAY AT(Z 
4,1):"ECRITURE 

170 IF L>22 THEN L=Q :: P=P+i 

189 L=l+i :: C=0 

190 IF C>79 THEN 17@ ELSE C=C+1 

208 DISPLAY ATIL,1):SEG#FIT#(F,L) ,-(C<30)- 
(C-28)#(C>29),278) 

219 CALL SPRITE(#1,127,2,Lx8,-(C#8+8)*1C« 
30)-241#(C>29)) 

228 CALL KEY(S,R,E)s: IF R>31 THEN T#(P,L 
=T$#(P,L)&CHR#(R):: GOTO 190 

230 1F R<Q THEN 220 

240 ON R GOTO 890,600,530,570,170,9350,850 
,280,320,560,400,640,170,460,440 

250 

268 







C=C+(C)1):: IF C2>231 THEN 208 ELSE 210 


É) $ # F4 ,, | 2 F 8 
re ? ESS CF RE # e 
#: ê AIS 3 ds o És 
PUITS PRET RIT PER TT LEE 
TL PF CEA g + A J #4, HA 
TEE HU HR, ALERT 


out bon logiciel est para- 

métré ; paramétré, Textex 
l'est aussi. Il peut gérer x lignes 
de y caractères sur une fenêtre 
définissable ; il utilise les 
touches de fonction pour com- 
mandes (à paramétrer à votre 
guise). Il sait afficher, déplacer, 
coller et insérer des lignes, re- 
chercher les occurrences d'une 


GOTG 208 





IF Pi THEN 220 ELSE F=F-i 
Lai 215 :Cat 


chaîne et enfin imprimer tout ou 460 DISPLAY AT(1,1)2SEG# (T#(P,1),1,28):SE 
partie du texte que vous compo- G#(TS(P,2),1,28):SEGS(T$#(P,3),1,28):SE6 
sez. Textex est utile. Textex est S(T#(P,4),1,28):SEGS (T$(P,5) , 1, 28) : SEG#UT 


la fée du logis (ciel !). #(P,6),1,28) 
470 DISPLAY AT(7,1):SEGS(T#(P,7),1,28):SE 
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A PF D 2 SRE DR EC 





TEXTEXT AIME VOS TEXTES 

















G$(T$(F,8),1,28):SE6S$(T#(P,9),1,28):SEG 
#(T#(P,10),1,28):SEG#(T#(P,11),1,28):SEGS 
(T#(P,12),1,28) 

489 DISPLAY AT(13,1):SEG#(T$(P,13),1,28): 
SEGS(T#(P,14),1,28):SEGS#(T#(F,15),1,28) 
:SEGS(TS(P,16),1,28):SEGF(T$(P,17),1,28): 
SEGST#(P,18),1,2) 

490 DISPLAY AT(19,1):SEG$(T#(P,19),1,28): 
SEGS(T#(P,28),1,28):SEG#(T#(P,21),1,28) 
:SEGS(TS(P,22),1,28):SEGS$(T#(P,23),1,28): 
: 6OTO 210 

500 REM 
510 REM SUPPRIMER CAR. 
530 T#(P,L)=SEGS(T#(P,L),1,C-1)&SEGS (TS (P 
L},C+1,8@):: GOTO 200 
















576 DISPLAY AT(24,1):"insertion" 
580 CALL GCHAR(L,-(C+2)#(C<38)-32#(C229), 
Kiss CALL SPRITE(#1,K,3,L*x8-7,-(C#x8+8) * 
(C<30)-241#(C>29)) 

CALL KEY(S,R,E):: IF R>31 THEN 628 :: 
IF R<O THEN 590 :: IF R<>13 THEN 610 
C=LEN(T#(P,L))+1 

DISPLAY AT(24,1):"ECRITURE" 





60T0 2 









T#(P,LI=SEG#(T#(P,L),1,C-1)8&CHR$ (RD RS 
EGS(T#(P,L),C,88@):: DISPLAY AT(L,1):SEG 

#(TS(P,L),-(C{30)-(C-28)#(C>29) ,28):: C=C 
+1 :: GOTO 580 





6b@ DISPLAY AT(24,1):"IMPRESSION ? 
" +: CALL LOCATE(#1,192,184) 






O/N 





SPECIAL PROGRAMMES 
HS65 DECEMBRE 1984 


84 





















678 CALL KEY(3,R,E):: IF R<Q THEN 670 :: 

IF R>79 THEN DISPLAY AT(24,1)3:"ECRITUR 

E" :: GOTO 218 

680 OPEN #1:"RS232.DA=8" , VARIABLE, OUTPUT 

1: M=0 

698 FOR M=0 TO 8 

700 DISPLAY AT(24,1):"PAGE";M 

718 CALL KEY(3,R,E):: IF R<O THEN 710 :: 

IF R<>13 THEN 790 

720 FOR I=1 TO 23 

730 PRINT #1:T#(M,1) 

749 CALL KEY(I3,R,E):: IF R<>13 THEN 780 

750 DISPLAY AT(24,1):"on continue ? o/n° 

760 CALL KEY(3,R,E):: IF R<O THEN 760 :: 

IF R=79 THEN 780 :: IF R<>78 THEN 760 

770 1=25 

780 DISPLAY AT(24,1):"IMPRESSION" :: 
Î 

790 NEXT M 

800 DISPLAY AT(24,1):"FIN" :: CALL SOUND( 

100,580,0):: CLOSE #i :: GOTO 200 


NEXT 


850 T$(P,L)="" :: C=1 
2,32):: GO0TO 210 

860 REM 
870 REM DETRUIRE LIGNE 
890 FOR I=L TO 22 :: T#(P,1)=T#(P,l+1):: 
NEXT I 2 T#(P,23)="" :: GOTO 460 

90Q REM ------------- 

910 REM INSERER LIGNE 

920 REM 
930 FOR 1=22 TO L STEP -1 :: T$(P,1+1)=7$ 
(P,l)se NEXT I 2: T#(P,L)="" :: GOTO 46 


(] Pr. Dopelapel 


CALL HCHAR(L,1,3 
















Les écrivains célèbres possèdent tous, 
uand ils ne l’oublient pas, un petit 
calepin dans lequel ils noient rendez- 
vous, notes de blanchisserie ainsi que 
leurs propres numéros de téléphone. 
Puisse ee pro, e vous empêcher de 
rater le rendez-vous de votre vie, et vous 


faire bien voir auprès de votre dentiste. 


























V2: comment l'utiliser : 
stockez autant d'informa- 
tions que vous le désirez en 
lignes DATA (après tout 
pourquoi se passer de la sou- 
plesse de l'éditeur Basic), puis 
lancez le programme d'un RUN 
nerveux ; on Vous propose alors 
d'effectuer une recherche à 
partir d'un mot de votre choix. 
Ensuite sont affichés tous les 


messages contenant ce mot ; si 
leur nombre est supérieur à 1, il 
vous sera proposé d'affiner la 
recherche à l'aide d'un 
deuxième mot, en prenant pour 
base les phrases en question. 
Vous pourrez ainsi parfaire votre 
recherche autant de fois que 
bon vous semblera. 

La figure ci-dessous donne un 
exemple d'utilisation : les lignes 


DATA ayant servi d'information 
sont relativement peu nom- 
breuses mais lorsque vous en 
posséderez plusieurs centaines 
en mémoire, l'efficacité d'un tel 
système prendra toute son am- 
pleur. VERBA VOLENT, 
SCRIPTA MANENT (O0 Tem- 


2 


pora, Ô mores !). 


18 CLS:REN EFFACE L'ECRAN 


30 CLEAR 1OBG:REN RESERVE 1888 OCTETS POUR LES CHAINES 
68 FIN=1000: DIX M$ (280) 

7Q REX RECHERCHE AU NIVEAU 1 

80 INPUT “A PARTIR DE QUEL MOT OÙ QUELLE PHRASE VOULEZ- 
VOUS EFFECTUER UNE RECHERCHE “;RECHS 

90 RESTORE:J=@ 

108 READ PHRASES 

118 IF PHRASES="FIN" THEN M$(J)="FIN":60T0 150 

128 60SUB 358:607T0 184 

138 RETURN 

148 REN RECHERCHE AUX NIVEAUX 2 ET PLUS---- 

158 IF J=@ THEN PRINT “LA RECHERCHE N'A RIEN DONNE" 
168 1F J(2 THEN 278 

178 J=8: INPUT "VOULEZ-VOUS PRECISER LA RECHERCHE ";REPS 
188 REPS=LEFTS(REPS,1) 

198 IF REP$="0" THEN 220 

208 1F REP$="N" THEN 278 

218 60SUB 338:60T0 17@ 

228 INPUT “A PARTIR DE QUEL MOT OU PHRASE ";RECHS 

238 PHRASES=MS$(11):60SUB 348 

248 IF PHRASES="FIN" LET M$(J)="FIN":11=@:6070 150 

250 11=11+1:60T0 238 


278 PRINT: INPUT "VOULEZ-VOUS EFFECTUER UNE AUTRE RECHER 
CHE ";REPS 

288 REPS=LEFTS(REPS,1) 

290 IF REP$="Q" THEN 88 

308 IF REPS="N" THEN END 

318 60SUB 338:60T0 288 


338 PRINT'REPONDEZ PAR OUI OÙ PAR NON, TOUTE ABREVIATIO 
N ETANT AUTORISEE":60T0 178 


358 FOR 1=1 TO LEN(PHRASES)-LEN(RECHS) +1 

368 IF MID$(PHRASES, I ,LEN(RECHS) )=RECHS THEN PRINT PHRA 
SES: 12FIN:M$(J)=PHRASES: J=J+1 

370 NET ! 





388 RETURN 


408 REM NOTEZ VOS RENSEIGNEMENTS À PARTIR 
418 REX D'ICI EN LIGNES DATA 


438 DATA “MONSIEUR DURAND TEL:258 58 58 ADRESSE: 25 AVEN 
UE DES ACACIAS* 

448 DATA "LE 28/12/84 : ACHETER DES CADEAUX" 

450 DATA "LE 18/5/85 : TELEPHONER A DURAND" 

460 DATA "PENSER À TELEPHONER AU DEMENAGEUR" 

478 DATA “COURSE : LAIT PAIN CAFE SUCRE" 

488 DATA “J'AI RANGE LES PAPIERS DE LA SECU DANS LE 3 E 
ME TIROIR DU BUREAU" 

490 DATA “MON NUMERO DE SECU EST 1688675882547" 

508 DATA "LE 28/12/84 EST UN GRAND JOUR CAR JE DEMENAGE 


T. Levy-Abegnoli 


510 DATA "FIN" 





À PARTIR DE QUEL MOT OU QUELLE PHRASE VOULEZ-VOUS EFFECTUER UNE 
RECHERCHE ? TEL 

MONSIEUR DURAND TEL:258 58 58 ADRESSE: 25 AVENUE DES ACACIAS 

LE 18/5/85 : TELEPHONER À DURAND 

PENSER À TELEPHONER AU DEMENAGEUR 

VOULEZ-VOUS PRECISER LA RECHERCHE ? 0 

À PARTIR DE QUEL MOT OÙ PHRASE ? DURAND 

MONSIEUR DURAND TEL:258 58 58 ADRESSE: 25 AVENUE DES ACACIAS 

LE 18/53/85 : TELEPHONER À DURAND 

VOULEZ-VOUS PRECISER LA RECHERCHE ? N 


VOULEZ-VOUS EFFECTUER UNE AUTRE RECHERCHE ? N 


READY 
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Le 


rogramme de tri le plus rapide et le 





lus court (une seule ligne de Basic). 
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| ne s'agit pas d'un canular 

douteux : tout tableau X () de 
valeurs entières peut être classé 
en une ligne de Basic : DIM Y ( : 
FOR J = 1TON:Y{(X (J)) = Y 
(X (J))+1: NEXT. La seule 
nécessité de dimensionner un 
tableau de la taille de la plus 
haute valeur ne doit pas être 
considérée comme un obs- 
tacle : il est possible de définir 
des sous-classes de valeurs, de 


A genoux les sceptiques ! 





même ordre de grandeur, que 
l'on classera par cette méthode 
quasi instantanée (de 50 à 500 
valeurs triées par seconde !). 
Ainsi le classement alphabé- 
tique est-il possible en opérant 
d'abord une sélection sur les 
deux premiers caractères (assi- 
milables à leur code ASCII-65). 


N'hésitez plus : le tri par classes 
de valeurs, c'est l'enfer ! 


QI: LE QUOTIENT 





IRRATIONNEL 


défaut de justifier son algo- 

rithme, utilisons-le : il 
permet de retrouver pour tout 
nombre décimal le quotient ap- 
proximatif qui lui correspond : 
ainsi PI (3.141592654) vaut res- 
pectivement en fonction de la 
précision souhaitée : 22/7, 
333/106, 355/113 ou encore 
104348/33215. A vous de choi- 
sir ; il est possible de construire 
un autre programme qui four- 
nisse le résultat par une itération 
sur des fonctions décrites par 
DEF. Un embryon d'exemple 
est fourni dans la version 2 : 
saurez-vous le mener à terme ? 
Cet utilitaire se révèle indispen- 
sable dans tous les calculs 
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mathématiques qui ne tombent 
pas juste; dans un second 
temps, vous pouvez imaginer 
un programme qui donnerait 
pour tout nombre décimal son 


EM ER PSERSE 
à REM QUOTIENT EXACT 
D REM == 

INPUT À 


où C=INT(E) 
160 J1-D0#E+F 


REM HASARD 


CALL CLEAR 


DIM X(100) 
DIM Y(110) 

FOR A=1 TO 100 
X(A)=INT (RND+100) 
PRINT X(A); 

NEXT À 


REM --- 
REM TRI 

REM --- 

BEEP 

FOR J=1 TO 100 
YEX(J))=Y EX (J))+1 
NEXT J 

BEEP 

FOR A=1 TO 100 
FOR I=1 TO Y(A) 
PRINT À; 

NEXT I 

NEXT A 


END E. Ades 





« Et pourtant il tourne ! » 
se serail 


écrié le grand Galilée en 
découvrant 
€ Pro, me. 





Se 


résultat sous forme trigono- 
métrique ou d'une puissance 
entière. En effet, il suffit de 
quelques tests astucieux pour y 
parvenir. 


G REM BASE DU QUOTIENT 


DEF FRC(A)=A-INT (A) 

DEF B=INT(1/FRC (A) ) 

DEF C=INT (A#xB+.5) 
76 FRINT A3"="3:0:"/"3B 


80 END 


P. Guilbert I 














BOUSCULEZ 
LES MINUSCULES 


De la minuscule à la | est parfois utile de travailler 
M2. nm. — sur un texte tout en majus- 


Le o 5 , 
majuscule il n’y a qu'un cules ou tout en minuscules 












as : franchissons-le une pour effectuer un classement REM CONVERSION(A$#) 
. XE k par exemple. Cette conversion 
fois pour toutes, dans un est possible avec certains Basic FOR I=1 TO LEN(A$) 
sens ou dans l’autre. (fonctions LOWER et UPPER). « 
—— na B=ASC(SEG#$(A$,1,1)) 
Voici la routine correspondante IF B(97 THEN 190 
FR pour majusculiser. L'opération 
T4 inverse est obtenue en modi- C$=SEGS(A$,1,1-1) 
us, J fiant les lignes : D$=SEG6$(A$,1+1,80) 
+ MA 150 IF B<65 OR B>92 THEN A$=C$S&CHRS (B-32)8&D$ 
: \ Se 190 NEXT I 
te ss UE. À 180 A$S=C$S+CHRS END 
RS ER re É (B+32)+D$ Bob Z. 
Ÿ #1 A VollA, BoN tRaVall. ob Zi 
2 


£ 






(2 LE HASARD 


Simuler le hasard est une 
entreprise délicate et... 
hasardeuse, or pour tirer 


au sort des valeurs 
différentes... 


a méthode la plus sau- 

grenue consiste à comparer 
chaque nouveau tirage avec 
chacun des précédents et à re- 
tirer en cas de répétition. N'ayez 
aucun remords de l'avoir utili- 
sée : elle continue à sévir dans 
pas mal de recueils de pro- 
grammes. 
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Page manquante 








Ainsi, par exemple le mois de 
janvier est codé 01 et non 1. 
Ce numéro d'INSEE est surtout 
employé par la Sécurité sociale. 
Mais pour vérifier l'exactitude de 
ce numéro, la Sécurité sociale a 
ajouté une clef de contrôle 
formée de deux chiffres à la 
suite du numéro. 


La clef s'obtient par la méthode 
modulo 97, c'est-à-dire que le 
numéro INSEE est divisé par 97 
et la clef est la différence entre 
97 et le reste de cette division. 
Le calcul est pénible, or sur la 
plupart des ordinateurs il est 


impossible de travailler sur des | 


nombres de 13 chiffres, car la 
capacité de la machine est limi- 
tée, disons à 12 chiffres. Le 13° 
sera toujours arrondi et le calcul 
sera donc faux. 


Heureusement, on peut par 
exemple, entrer le code dans 
une variable alphanumérique, et 
séparer cette variable de telle 
façon que les calculs ne dépas- 
sent pas la capacité de 
machine. 


Ici on a choisi de séparer la 
chaîne en deux, d'une part les 
12 premiers chiffres (dans N), 
d'autre part le treizième chiffre 
(dans M). Alors R1 représente le 
reste de la division de N par 97. 
Il est clair qu'alors le « vrai » 
reste de la division du code 
INSEE par 97 est 10:R1 + M 
(noté R2 dans le programme). 


Ainsi, par exemple : 


N = 151118708504 
M = 6 
R1 = 91 


R2 = 10:91 +6 = 916 

On doit donc, pour terminer 
l'opération, diviser ce dernier 
reste par 97 pour obtenir le 
reste du code dans la division 
par 97, noté R. 


cision de 12 chiffres. Or la plu- 
part des machines possèdent 
une simple précision, c'est-à- 
dire une précision à 7 chiffres. 
Dans ce cas, il suffit de changer 


20 B$ LEFT$ (A$,7) 

30 CS RIGHTS (A$,6). 
C'est donc un mystère de plus 
qui est dévoilé sur ces lignes. 
Réjouissons-nous. 


WI 








la | 


Le code s'obtient alors en effec- | 
tuant la différence entre 97 et le | 


reste. 
Rappelons que ce programme 
n'est valable que pour une pré- 





les lignes 20 et 30 par: 


Pierre Germaneau 
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__ DE 1585 


1985 : 





20 REM JOUR DE LA SEMAINE 


40 E$(@)="DIN" 

98 E$(1}="LUN" 

60 E$(2)="MAR" 

78 E$(3)="NER" 

80 E$(4)="JEU* 

90 E$(5)="VEN" 

108 E$(6)="SAN" 

118 INPUT À,B,C,D 

128 IF B(2 THEN B=B+12 : 
D=D-1 

138 F=INT((B-2)#2,59)#INT ( 
D#1.25)+INT(C#5,25)+84 
148 F=F-INT(F/7)#7 

158 PRINT E$(F) 

168 END 


48 E$(8)="DIn" 

58 E$(1)="LUN" 

b@ E$(21="MAR" 

78 E$(3)="MER" 

80 E$(4)=" JEU" 

90 E$(5)="VEN" 

108 E$(b)="SAN" 

118 DEF L=INT((B+(B<2 AND 
12)-2)#2,59)+INT(D-(B{2 AN 
D 1)#1,25)+#INT (C#5,25)+h 
128 DEF H=L-INT(L/7)#7 
130 DEF DATES=E$ (M) 

148 END 








QUATRE SIECLES 
NOUS 








OBSERVENT 


C'est au chevalier J.B.J. Delambre 


ue nous devons cette formule 
laconique : « Faites RUN puis 
entrez sous la forme suivante les 
« Jour, Mois, Siècle-1, Année ». 
Tirez la bobinette et la date suivra. » 











n effet, après avoir chargé le cours 

programme ci-contre, on obtient en 
deux coups de cuiller à pot le jour de la 
semaine correspondant à n'importe quelle 
date postérieure à 1585. Inutile de faire 
plus long : tout tient en deux lignes de 
Basic. Cependant, la version 2 du même 
programme a l'avantage de créer une 
nouvelle fonction pour votre ordinateur : 
chargez la date dans les variables A, B, C, 
D ; un PRINT DATES calcule le résultat 
instantanément à l'intérieur de vos futurs 
programmes. K. Lesage 


SPECIAL PROGRAMMES 
HS65 DECEMBRE 1984 








MA DOUCE 
MA BELLE 
ET MA COURBE 


Vous aimez les longues courbes aux contours généreux mais précis, aux lignes 


cieuses mais exactes. Nous aussi ! 











és César! Faut-il balayer 
sud « quand nos pieds se ca- 
. : chent sous la table ? » Ce mes- 
sage plein de sagesse nous 
enseigne après 20 siècles 
4 d'obscurité que les tracés de 
fonctions mathématiques sur 
imprimante sont plus simples à 
A réaliser dans une table mémoire 
, ' intermédiaire que directement 
. par balayage. En effet, on range 
d'abord les points aléatoirement 
sans aucun problème de posi- 
tionnement ; la table est ensuite 

" éditée. 
* Remarquons que le programme 
‘ (furieusement commenté) re- 
* cherche d'abord les extrema 


: 
: 
: 
' 
L 
# : 
L 
1 
LI 
LI 
: 


10 ‘ TRCX 


LXx=70:LY=35 
FOR 1=0 TO 40 
COURBS$(I)=STRINGS(" ",78) 
100 NEXT 1! 
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r r 


en INTERVALLE ETUDIE B1 --> B2 
INPUT "BORNE 17 ";B1 
INPUT "BORNE 27 “;B2 


hace de où id de NE GES QU EG SG, CS QE Mini/Maxi de Y(X) 


Y1=0:Y2=0 
FOR X=B1 TO B2 STEP 5 

GOSUB 610 

IF Y<Y1 THEN Y1=Y 

IF Y>Y2 THEN Y2=Y 
NEXT X { 
TE Ed Echelles x,Y \ 
EX=(LX-2)/(B2-B1): ‘ Echelle EX \ 
EY=(LY-5)/CY2-Y1): * Echelle EY 


OY=-Y1+EY+3 


RE Trace axe X 
COURB$(LY-OY)=STRINGS("-",75) 
COURBS$S(LY-OY)=COURBS(LY-OY)+"3> X" 

mm mmmmmmmmmmmmmm me nn me Graduations X 
S1=10/EX 
FOR X=B1 TO B2 STEP S1 

X1=X 

X1=SGN(X1)#INT(ABS(X1)) 

XS$=STRS(X1) 

MIDS$S(COURBS(LY-(0OY-1)),X1#EX+0X,LENCX$#))=X$ 


= neo œ en @e en qe qe @e en de ee one @e œù 008 en ee een ne ce en me Graduations Ÿ 
S1=S/EY 
FOR Y=Y1 TO Y2 STEP Si 
Y1=Y:Y1=SGN(Y1)#INT(ABS(Y1)):1F Y1=0 THEN 450 
Y$S=STRS(Y1) 


MIDS (COURBS (LY-(COY+Y1#EY)) ,0X+2,LENCYS))=Y$ LA {1 
NEXT Y ne / 7" als 


MIDS$(COURBS$ (0) ,OX,LEN(EQ$) )=EQ$ 
FOR Y=1 TO 40 
MID$(COURBS#S(Y),0X,1)="!" 
NEXT Y 
lss===ssssess=ssss2==s2==22222==2==22===222==22= GENERATION dans COURBS() 
FOR X=B1 TO B2 STEP S 
GOSUB 610 
GOSUB 640 





mm__—____-_<m… 2.2... 0... Edition 
FOR Y=0 TO 32 

LPRINT COURS(Y) 

NEXT Y 


ne COURBE À TRACER 
Y=SINCXD#SINCXD 2 YS=" C4 STRECXD +", "4STRECYI+")" 


RE 00 ci rois -- Mise a jour de COURB#$() 
X1=0X+X#EX:Y1=LY-COY+EY*Y) 

IF X1<1 THEN 700 

IF Y1<1 THEN 700 

MIDS$#(COURBS(Y1),X1,1)2="#" 

* IF X2>0 THEN MIDS(COURBS(Y1),X1+5,LENC(Y$#))=Y$ ’ Pour edition des valeurs 


RETURN 
S. Chazalet 


QT ———— 5 7e on 


OP 





MA DOUCE, MA BELLE ET MA COURBE 


de Ÿ ; les échelles sont, à ce 
point, calculées pour utiliser au 
mieux l'espace disponible sur le 
graphique. 


CS CES eu Ce Ce MED 


pe publicité SA rs 
em A 
| * 








Pour recevoir notre documentation, M 
précisez votre matériel, * découpez 
et renvoyez cette annonce à 


RUN NFORMATIQUI 
62,rue Gérard 7: 
Tél. : 1 581.51.44 


13 PARI: 


X#X 
' 


le spécialiste des logiciels 
de jeux... du sérieux... des extensions 


Adresse: 


a nn Du mu nn mu mu me ee us Ge 0 nu mon mn mn me me an man em 


Un petit programme auxiliaire 
Suffira à agrémenter les graphes 
à votre guise, ou les sauve- 
garder pour la bonne bouche. 


16 + 
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SOCIETE 


Euréka Informatique 

Euréka Informatique 

Euréka Informatique 

La Commande Electronique 
List 

PSI Diffusion 
Run Informatique 
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